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1.  SCOPE 


1.1  IDENTIFICATION 

The  Advanced  Propagation  Model  (APM)  Version  1.0  computer  software  configuration  item 
(CSCI)  calculates  range-dependent  electromagnetic  (EM)  system  propagation  loss  within  a  hetero¬ 
geneous  atmospheric  medium  over  variable  terrain,  where  the  radio-frequency  index  of  refraction  is 
allowed  to  vary  both  vertically  and  horizontally,  also  accounting  for  terrain  effects  along  the  path  of 
propagation. 

1.2  SYSTEM  OVERVIEW 

The  APM  CSCI  model  will  calculate  propagation  loss  values  as  EM  energy  propagates  through  a 
laterally  heterogeneous  atmospheric  medium  where  the  index  of  refraction  is  allowed  to  vary  both 
vertically  and  horizontally,  also  accounting  for  terrain  effects  along  the  path  of  propagation.  Numer¬ 
ous  Tactical  Environmental  Support  System-Next  Century  (TESS-NC)  applications  require  EM- 
system  propagation  loss  values.  The  required  APM  model  described  by  this  document  may  be  ap¬ 
plied  to  two  such  TESS-NC  applications,  one  of  which  displays  propagation  loss  on  a  range  versus 
height  scale  (commonly  referred  to  as  a  coverage  diagram)  and  one  which  displays  propagation  loss 
on  a  propagation  loss  versus  range/height  scale  (commonly  referred  to  as  a  loss  diagram). 

1.3  DOCUMENT  OVERVIEW 

This  document  specifies  the  functional  requirements  that  are  to  be  met  by  the  APM  CSCI.  A  dis¬ 
cussion  of  the  input  software  requirements  is  presented  together  with  a  general  description  of  the 
internal  structure  of  the  APM  CSCI  as  it  relates  to  the  CSCI's  capability. 

2.  REFERENCED  DOCUMENTS 

(a)  Bergland,  G.  D.  1 969.  “A  Radix-eight  Fast  Fourier  Transform  Subroutine  for  Real-valued 
Series,”  IEEE  Trans.  Audio  and  Electro-acoust.,  vol.  AU-17,  pp.  138-144. 

(b)  Cooley,  J.  W.,  P.  A.  W.  Lewis  and  P.  D.  Welsh.  1970.  “The  Fast  Fourier  Transform  Algo¬ 
rithm:  Programming  Considerations  in  the  Calculation  of  Sine,  Cosine  and  Laplace  Trans¬ 
forms,”  J.  Sound  Vib.,  vol.  12,  pp.  315-337. 

(c)  Tappert,  F.  D.  1977.  “The  Parabolic  Approximation  Method,”  Wave  Propagation  and  Un¬ 
derwater  Acoustics,  pp.  224-285,  J.  B.  Keller  and  J.  S.  Papadakis,  Eds.,  Springer-Verlag, 
New  York,  NY. 

(d)  International  Radio  Consulting  Committee  (CCIR)  XVth  Plenary  Assembly  Dubrovnik, 
1986.  “Propagation  in  Non-Ionized  Media,”  Recommendations  and  Reports  of  the  CCIR, 
1986,  vol.  V,  International  Telecommunications  Union,  Geneva,  Switzerland. 

(e)  Commander-In-Chief,  Pacific  Fleet  Meteorological  Requirement  (PAC  MET)  87-04.  1997. 
“Range  Dependent  Electromagnetic  Propagation  Models.” 
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(f)  Dockery,  G.  D.  1988.  “Modeling  Electromagnetic  Wave  Propagation  in  the  Troposphere 
Using  the  Parabolic  Equation”,  IEEE  Trans.  Antennas  Propagat.,  vol.  36,  no.  10,  pp.  1464- 
1470  (Oct). 

(g)  Naval  Oceanographic  Office.  1990.  “Software  Documentation  Standards  and  Coding  Re¬ 
quirements  for  Environmental  System  Product  Development,”  Apr. 

(h)  Kuttler,  J.  R.  and  G.  D.  Dockery.  1991.  “Theoretical  Description  of  the  Parabolic  Approxi¬ 
mation/Fourier  Split-Step  Method  of  Representing  Electromagnetic  Propagation  in  the  Tro¬ 
posphere,”  Radio  Sci.,  Vol.  26,  pp.  381-393. 

(i)  American  National  Standards  Institute  (ANSI).  1992.  “Program  Language  -  Fortran  -  Ex¬ 
tended.” 

(j)  Patterson,  W.L.  and  H.  V.  Hitney.  1992.  “Radio  Physical  Optics  CSCI  Software  Docu¬ 
ments.”  NraD  TD  2403  (Dec),  Naval  Command,  Control  and  Ocean  Surveillance  Center 
RDT&E  Division,  San  Diego. 

(k)  Barrios,  A.  E.  1993.  “Terrain  and  Reffactivity  Effects  on  Non-Optical  Paths,”  AGARD  Con¬ 
ference  Proceedings  543,  Multiple  Mechanism  Propagation  Paths  (MMPPs):  Their  Charac¬ 
teristics  and  Influence  on  System  Design  (Oct),  pp.  10-1  to  10-9. 

(l)  Barrios,  A.  E.  1994.  “A  Terrain  Parabolic  Equation  Model  for  Propagation  in  the  Tropo¬ 
sphere,”  IEEE  Trans.  Antennas  Propagat.,  vol.  42  (Jan),  pp.  90-98. 

(m)  Naval  Oceanographic  Office.  1996.  “Software  Documentation  Standards  for  Environmental 
System  Product  Development,”  Feb. 

(n)  Barrios,  A.  E.  1996.  “Terrain  Parabolic  Equation  Model  (TPEM)  Version  1.5  User’s  Man¬ 
ual.”  NRaD  TD  2898  (Feb),  Naval  Command,  Control  and  Ocean  Surveillance  Center 
RDT&E  Division,  San  Diego,  CA. 

(o)  Sailors,  D.B.  and  A.  E.  Barrios.  1997.  “Terrain  Parabolic  Equation  Model  (TPEM)  Computer 
Software  Configuration  Item  (CSCI)  Documents.”  NRaD  TD  2963  (May),  Naval  Command, 
Control  and  Ocean  Surveillance  Center  RDT&E  Division,  San  Diego,  CA. 

3.  REQUIREMENTS 

3.1  CSCI  CAPABILITY  REQUIREMENTS 

The  required  APM  CSCI  propagation  model  is  a  range-dependent  true  hybrid  model  that  uses  the 
complimentary  strengths  of  both  Ray  Optics  (RO)  and  Parabolic  Equation  (PE)  techniques  to  calcu¬ 
late  propagation  loss  both  in  range  and  altitude. 

The  atmospheric  volume  is  divided  into  regions  that  lend  themselves  to  the  application  of  the 
various  propagation  loss  calculation  methods.  Figure  1  illustrates  these  regions. 
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Figure  1 .  APM  calculation  regions. 


For  antenna  elevation  angles  above  5  degrees  or  for  ranges  less  than  approximately  2.5  kilometers 
(km),  a  flat  earth  (FE)  RO  model  is  used.  In  this  region,  only  receiver  height  is  corrected  for  average 
refraction  and  earth  curvature. 

Within  the  RO  region  (as  defined  by  a  limiting  ray),  propagation  loss  is  calculated  from  the  mu¬ 
tual  interference  between  the  direct-path  and  surface-reflected  ray  components  using  the  refractivity 
profile  at  zero  range.  Full  account  is  given  to  focusing  or  de-focusing  along  both  direct  and  reflected 
ray  paths  and  to  the  integrated  optical  path  length  difference  between  the  two  ray  paths  to  give  pre¬ 
cise  phase  difference  and,  hence,  accurate  coherent  sums  for  the  computation  of  propagation  loss. 

For  the  low-altitude  region  beyond  the  RO  region,  a  PE  approximation  to  the  Helmholtz  full  wave 
equation  is  employed.  The  PE  model  allows  for  range-dependent  refractivity  profiles  and  variable 
terrain  along  the  propagation  path  and  uses  a  split-step  Fourier  method  for  the  solution  of  the  PE. 

The  PE  model  is  run  in  the  minimum  region  required  to  contain  all  terrain  and  trapping  layer 
heights. 

For  the  area  beyond  the  RO  region  but  above  the  PE  region,  an  extended  optics  region  (XO)  is  de¬ 
fined.  Within  the  XO  region,  RO  methods  that  are  initialized  by  the  PE  solution  from  below,  are 
used. 

APM  will  run  in  three  “execution”  modes  depending  on  environmental  inputs.  APM  will  use 
the  FE,  RO,  XO,  and  PE  models  if  the  terrain  profile  is  flat  for  the  first  2.5  km  and  if  the  antenna 
height  is  less  than  or  equal  to  100  m.  It  will  use  only  the  XO  and  PE  models  if  the  terrain  profile 
is  not  flat  for  the  first  2.5  km  and  if  the  antenna  height  is  less  than  or  equal  to  100  m.  APM  will 
use  only  the  PE  model  if  the  antenna  height  is  greater  than  100  m,  regardless  of  terrain  profile. 

The  APM  CSCI  allows  for  horizontal  and  vertical  antenna  polarization,  finite  conductivity 
based  on  user-specified  ground  composition  and  dielectric  parameters,  and  the  complete  range  of 
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EM  system  parameters  and  most  antenna  patterns  required  by  TESS-NC.  APM  also  allows  for 
gaseous  absorption  effects  in  all  submodels  and  computes  troposcatter  losses  within  the  diffrac¬ 
tion  region  and  beyond. 

The  program  flow  of  the  required  APM  CSCI  is  illustrated  in  figure  2.  Note  that  the  APM  CSCI  is 
shown  within  the  context  of  a  calling  CSCI  application  such  as  one  that  generates  a  coverage  or  loss 
diagram.  The  efficient  implementation  of  the  APM  CSCI  will  have  far-reaching  consequences  upon 
the  design  of  an  application  CSCI  beyond  those  mentioned  in  Section  3.10.  For  example,  figure  2 
shows  checking  for  the  existence  of  a  previously  created  APM  output  file  prior  to  the  access  of  the 
APM  CSCI.  The  application  CSCI  will  have  to  consider  if  the  atmospheric  or  terrain  environment 
has  changed  since  the  APM  output  file  was  created  or  if  any  new  height  or  range  requirement  is  ac¬ 
commodated  within  the  existing  APM  CSCI  output  file.  Because  these  and  many  more  considera¬ 
tions  are  beyond  the  scope  of  this  document  to  describe,  an  application  CSCI  designer  should  work 
closely  with  the  APM  CSCI  development  agency  in  the  implementation  of  the  APM  CSCI.  Figures  2 
through  5  illustrate  the  program  flow  for  the  main  compute  software  components  (CSC),  APMINIT 
CSC,  APMSTEP  CSC,  XOINIT  CSC,  XOSTEP  CSC,  and  the  APMCLEAN  CSC,  respectively. 


Figure  2.  APM  CSCI  program  flow. 
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Figure  3.  APMSTEP  CSC  program  flow. 
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Figure  4.  APMSTEP  CSC  program  flow. 


Figure  5.  XOINIT  CSC  program  flow. 
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Figure  6.  XOSTEP  CSC  program  flow. 


Enter  from 

- ^ 

Deallocate  all  arrays 
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TESS  CSCI 

allocated  during  current 

- ^ 

TESS  CSCI 

APM  •‘run” 

Figure  7.  APMCLEAN  CSC  program  flow. 

The  APM  CSCI  is  divided  into  five  main  computer  software  components  (CSCs)  and  40  additional 
software  units  (SUs).  The  name,  purpose,  and  a  general  description  of  processing  required  for  each 
SU  follows. 

3.1.1  Advance  Propagation  Model  Initialization  (APMINIT)  CSC 

The  APMINIT  CSC  interfaces  with  various  SUs  for  the  complete  initialization  of  the  APM  CSCI. 
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The  atmospheric  volume  must  be  “covered”  or  resolved  with  a  mesh  of  calculation  points  that  will 
normally  exceed  the  height/range  resolution  requirements  of  the  particular  application  of  the  APM 
CSCI.  Upon  entering  the  APMINIT  CSC,  a  range  and  height  mesh  size  per  the  APM  CSCI  output 
point  is  calculated  from  the  number  of  APM  outputs  and  the  maximum  CSCI  range  and  height. 

The  terrain  profile  is  initially  examined  and  a  range  increment  determined  if  it  is  found  that 
range/height  points  are  provided  in  fixed  range  increments.  The  minimum  terrain  height  is  deter¬ 
mined,  and  then  the  entire  terrain  profile  is  adjusted  by  this  height  so  that  all  internal  calculations  are 
referenced  to  this  height.  This  is  done  to  maximize  the  PE  transform  calculation  volume. 

A  GETMODE  SU  is  referenced  to  determine  if  the  APM  CSCI  will  execute  in  a  full  hybrid  mode, 
a  partial  hybrid  mode,  or  PE-only  mode. 

A  REFINIT  SU  is  referenced  to  initialize  the  TESS-NC  CSCI  specified  modified  reffactivity  and 
also  to  test  for  valid  environment  profiles.  A  PROFREF  SU  adjusts  the  environment  profiles  by  the 
internal  reference  height,  and  a  INTPROF  SU  defines  the  modified  reffactivity  at  all  PE  vertical 
mesh  points. 

To  automatically  determine  the  maximum  PE  calculation  angle,  a  GETTHMAX  SU  is  referenced. 
This  determines,  via  ray  tracing,  the  minimum  angle  for  which  adequate  coverage  can  be  given  with 
the  specified  terrain  and  environment  profile.  A  FFTPAR  SU  is  referenced  to  determine  the  fast  Fou¬ 
rier  transform  (FFT)  size  for  the  calculated  angle  and  to  initialize  data  elements  within  the  PE  region 
that  are  dependent  on  the  size  of  the  FFT.  The  minimum  size  for  the  FFT  is  determined  from  the 
Nyquist  criterion. 

A  PE  starting  SU  (XYINIT)  and  an  antenna  pattern  factor  SU  (ANTPAT)  are  referenced  by  the 
XYINIT  SU  to  generate  a  first  solution  to  the  PE.  A  FFT  SU  is  referenced  for  data  elements  required 
in  obtaining  the  PE’s  starting  solution.  If  vertical  polarization  is  specified,  then  additional  calcula¬ 
tions  are  performed  in  the  starter  solution  using  Kuttler  and  Dockery’s  mixed  transform  method  (ref¬ 
erence  h).  In  this  case,  a  DIEINIT  SU  is  used  to  initialize  dielectric  ground  constants.  For  general 
ground  types,  the  permittivity  and  conductivity  are  calculated  as  a  function  of  frequency  from  curve 
fits  to  the  permittivity  and  conductivity  graphs  shown  in  recommendations  and  reports  of  the  Inter¬ 
national  Radio  Consulting  Committee  (reference  d). 

If  running  in  a  full  hybrid  mode,  a  FILLHT  SU  is  referenced  to  determine  the  heights  at  each  out¬ 
put  range  separating  the  FE,  RO,  and  PE  calculation  regions.  If  running  in  a  partial  hybrid  or  PE- 
only  mode,  then  the  heights  at  each  output  range  are  determined,  below  which  propagation  loss  so¬ 
lutions  are  valid.  No  propagation  loss  solutions  are  provided  above  these  heights  for  those  execution 
modes. 

Finally,  a  PHASE  1  SU  is  referenced  to  initialize  the  ffee-space  propagator  array,  and  a  PHASE2 
SU  is  referenced  (for  a  range-independent  environment  profile)  to  initialize  the  environment  propa¬ 
gator  array. 

3.1 .1.1  Allocate  Arrays  APM  (ALLARRAY_APM)  SU.  The  ALLARRAY_APM  SU  allocates  and 
initializes  all  dynamically  dimensioned  arrays  associated  with  APM  terrain,  reffactivity,  troposcatter, 
and  general  variable  arrays. 

3.1.1 .2  Allocate  Array  PE  (ALLARRAY_PE)  SU.  The  ALLARRAYJPE  SU  allocates  and  initial¬ 
izes  all  dynamically  dimensioned  arrays  associated  with  PE  calculations. 
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3.1 .1.3  Allocate  Array  XO  (ALLARRAY_XO)  SU.  The  ALLARRAY_XO  SU  allocates  and  initial¬ 
ize  all  dynamically  dimensioned  arrays  associated  with  XO  calculations. 

3.1 .1.4  Antenna  Pattern  (ANTPAT)  SU.  The  ANTPAT  SU  calculates  a  normalized  antenna  gain 
(antenna  pattern  factor)  for  a  specified  antenna  elevation  angle. 

From  the  antenna  beam  width,  elevation  angle  (an  angle  for  which  the  antenna  pattern  factor  is  de¬ 
sired),  and  the  antenna  radiation  pattern  type,  an  antenna  factor  is  calculated. 

3.1 .1.5  Dielectric  Initialization  (DIEINIT)  SU.  The  DIEINIT  SU  determines  the  conductivity  and 
relative  permittivity  as  functions  of  frequency  in  megahertz  based  on  general  ground  composition 
types. 

3.1 .1.6  Fast-Fourier-Transform  (FFT)  SU.  The  FFT  SU  separates  the  real  and  imaginary  compo¬ 
nents  of  the  complex  PE  field  into  two  real  arrays  and  then  references  the  SINFFT  SU  that  trans¬ 
forms  each  portion  of  the  PE  solution. 

3.1 .1.7  FFT  Parameters  (FFTPAR)  SU.  The  purpose  of  the  FFTPAR  SU  is  to  determine  the  re¬ 
quired  transform  size  based  on  the  maximum  PE  propagation  angle  and  the  maximum  height  needed. 
If  running  in  full  or  partial  hybrid  modes,  the  maximum  height  needed  is  the  height  necessary  to 
encompass  at  least  20  percent  above  the  maximum  terrain  peak  along  the  path  or  the  highest  trap¬ 
ping  layer  specified  in  the  environment  profiles,  whichever  is  greater.  If  running  in  a  PE-only  mode, 
the  maximum  height  needed  is  the  specified  maximum  output  height. 

For  computational  efficiency  reasons,  an  artificial  upper  boundary  must  be  established  for  the  PE 
solution.  To  prevent  upward  propagating  energy  from  being  “reflected”  downward  from  this  bound¬ 
ary  and  contaminating  the  PE  solution,  the  PE  solution  field  strength  should  be  attenuated  or  “fil¬ 
tered”  above  a  certain  height  to  ensure  that  the  field  strength  just  below  this  boundary  is  reduced  to 
zero. 

The  total  number  of  vertical  points  for  which  a  transformation  will  be  computed  is  determined. 
This  term  is  also  referred  to  as  the  FFT  size.  The  filtering  boundary  height  is  also  determined. 

3.1 .1 .8  Fill  Height  Arrays  (FILLHT)  SU.  The  FILLHT  SU  calculates  the  effective  earth  radius  for 
an  initial  launch  angle  of  5°  and  fills  an  array  with  height  values  at  each  output  range  of  the  limiting 
submodel,  depending  on  which  mode  is  used.  If  running  in  a  full  hybrid  mode,  then  the  array  con¬ 
tains  height  values  at  each  output  range  separating  the  FE  from  the  RO  region.  If  running  in  partial 
hybrid  or  PE-only  modes,  then  the  array  contains  those  height  values  at  each  output  range  at  which 
the  initial  launch  angle  has  been  traced  to  the  ground  or  surface.  These  height  values  represent  the 
separating  region  where,  above  that  height,  valid  loss  is  computed,  and  below  that  height,  no  loss  is 
computed.  This  is  done  so  that  only  loss  values  that  fall  within  a  valid  calculation  region  are  output. 

3.1 .1.9  Gaseous  Absorption  (GASABS)  SU.  The  GASABS  SU  computes  the  specific  attenuation 
based  on  air  temperature  and  absolute  humidity.  This  SU  is  based  on  CCIR  (International  Telecom¬ 
munication  Union,  International  Radio  Consultative  Committee,  now  the  ITU-R)  Recommendation 
676-1,  “Attenuation  by  Atmospheric  Gases  in  the  Frequency  Range  1-350  GHz.” 
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3.1.1.10  Get  Alpha  Impedance  (GETALN)  SU.  The  GETALN  SU  computes  the  impedance  term 
in  the  Leontovich  boundary  condition,  and  the  complex  index  of  refraction  for  finite  conductivity 
and  vertical  polarization  calculations.  These  formulas  follow  Kuttler  and  Dockery's  method  (refer¬ 
ence  h). 

3.1 .1 .1 1  Get  Mode  (GETMODE)  SU.  The  GETMODE  SU  determines  what  “execution” 
mode  APM  will  run  based  on  environmental  inputs  for  the  current  application. 

3.1.1 .12  Get  Maximum  Angle  (GETTHMAX)  SU.  The  GETTHMAX  SU  performs  an  iterative  ray 
trace  to  determine  the  minimum  angle  required  (based  on  the  reflected  ray)  in  obtaining  a  PE  solu¬ 
tion.  The  determination  of  this  angle  will  depend  on  the  particular  mode  of  execution.  For  the  full 
and  partial  hybrid  modes,  a  ray  is  traced  up  to  a  height  that  exceeds  at  least  20  percent  above  the 
maximum  terrain  peak  along  the  path  or  the  highest  trapping  layer  specified  in  the  environment  pro¬ 
files,  whichever  is  greater.  For  the  PE-only  mode,  a  ray  is  traced  for  all  heights  up  to  the  maximum 
output  height.  The  maximum  PE  propagation  angle  is  then  determined  from  the  local  maximum  an¬ 
gle  of  the  traced  ray. 

3.1.1.13  Interpolate  Profile  (INTPROF)  SU 

The  INTPROF  SU  performs  a  linear  interpolation  vertically  with  height  on  the  reffactivity  profile. 
Inteipolation  is  performed  at  each  PE  mesh  height  point. 

3.1.1.14  Free-Space  Propagator  Phase  Term  (PHASE1)  SU.  The  PHASE1  SU  initializes  the 
free-space  propagator  array  for  subsequent  use  in  the  PESTEP  SU.  The  propagator  term  is  computed 
at  each  PE  angle,  or  p-space,  mesh  point  using  the  wide-angle  propagator.  Finally,  a  filter,  or  at¬ 
tenuation  function  (frequently  called  “window”),  is  applied  to  the  upper  one-quarter  of  the  array 
corresponding  to  the  highest  1/4  of  the  maximum  propagation  angle. 

3.1.1.15  Environmental  Propagator  Phase  Term  (PHASE2)  SU.  The  PHASE2  SU  calculates  the 
environmental  phase  term  for  an  interpolated  environment  profile.  This  environmental  phase  term  is 
computed  at  each  PE  height,  or  z-space,  mesh  point.  Finally,  a  filter,  or  attenuation  function  (fre¬ 
quently  called  “window”),  is  applied  to  the  upper  1/4  of  the  mesh  points  corresponding  to  the  highest 
1/4  of  the  calculation  height  domain. 

3.1.1.16  Profile  Reference  (PROFREF)  SU.  The  PROFREF  SU  adjusts  the  current  reffactivity 
profile  so  that  it  is  relative  to  a  reference  height.  The  reference  height  is  initially  the  minimum  height 
of  the  terrain  profile.  Upon  subsequent  calls  from  the  PESTEP  SU,  the  reffactivity  profile  is  adjusted 
by  the  local  ground  height  at  each  PE  range  step. 

3.1.1.17  Refractivity  Initialization  (REFINIT)  SU.  The  REFINIT  SU  checks  for  valid  environ¬ 
mental  profile  inputs  and  initializes  all  refractivity  arrays. 

The  environmental  data  are  checked  for  a  range-dependent  profile  and  tested  to  determine  if  the 
range  of  the  last  profile  entered  is  less  than  the  maximum  output  range  specified.  If  so,  an  integer 
error  flag  is  returned  and  the  SU  exited,  depending  on  the  values  of  logical  error  flags  set  in  the 
TESS-NC  CSCI  itself. 
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The  REFINIT  SU  also  tests  for  valid  refractivity  level  entries  for  each  profile.  If  the  last  gradient 
in  any  profile  is  negative,  it  returns  an  integer  error  flag  and  the  SU  is  exited.  If  no  errors  are  de¬ 
tected,  the  REFINIT  SU  then  extrapolates  the  environmental  profiles  vertically  to  1000  km  in  height. 
Extrapolation  is  not  performed  horizontally  from  the  last  provided  profile;  rather,  the  last  provided 
environment  profile  is  duplicated  at  10  km  in  range.  This  duplication  of  profiles  is  done  by  the 
REFINTER  SU. 

3.1.1.18  Sine  Fast-Fourier  Transform  (SINFFT)  SU.  A  function  with  a  common  period,  such  as  a 
solution  to  the  wave  equation,  may  be  represented  by  a  series  consisting  of  sines  and  cosines.  This 
representation  is  known  as  a  Fourier  series.  An  analytical  transformation  of  this  function,  known  as  a 
Fourier  transform,  may  be  used  to  obtain  a  solution  for  the  function. 

The  solution  to  the  PE  approximation  to  Maxwell's  wave  equation  is  to  be  obtained  by  using  such 
a  Fourier  transformation  function.  The  APM  CSCI  requires  only  the  real-valued  sine  transformation 
in  which  the  real  and  imaginary  parts  of  the  PE  equation  are  transformed  separately.  A  Fourier  trans¬ 
formation  for  possible  use  with  the  APM  CSCI  is  described  by  Bergland  (reference  a)  and  Cooley, 
Lewis,  and  Welsh  (reference  b). 

3.1.1.19  Terrain  Initialization  (TERINIT)  SU.  The  TERINIT  SU  examines  and  initializes  terrain 
arrays  for  subsequent  use  in  PE  calculations.  It  tests  for  and  determines  a  range  increment  if  it  is 
found  that  range/height  points  are  provided  in  fixed  range  increments.  The  minimum  terrain  height  is 
determined  and  the  entire  terrain  profile  is  adjusted  so  that  all  internal  calculations  are  referenced  to 
this  height.  This  is  done  to  maximize  the  PE  transform  calculation  volume. 

3.1.1.20  Troposcatter  Initialization  (TROPOINIT)  SU.  The  TROPOINIT  SU  initializes  all  vari¬ 
ables  and  arrays  needed  for  subsequent  troposcatter  calculations.  The  tangent  range  and  tangent  an¬ 
gle  are  determined  from  the  source  and  from  all  receiver  heights  and  stored  in  arrays. 

3.1.1.21  Starter  Field  Initialization  (XYINIT)  SU.  The  XYINIT  SU  calculates  the  complex  PE  so¬ 
lution  at  range  zero. 

Several  constant  terms  that  will  be  employed  over  the  entire  PE  mesh  are  calculated.  These  are  the 
angle  difference  between  mesh  points  in  p-space  and  a  height-gain  value  at  the  source  (transmitter). 

For  each  point  in  the  PE  p-space  mesh,  the  following  steps  are  performed: 

1 .  The  antenna  pattern  ANTPAT  SU  is  referenced  to  obtain  an  antenna  pattern  factor  for  both 
a  direct-path  ray  and  a  surface-reflected  ray.  Since  the  PE  starting  solution  makes  a  flat- 
earth  assumption,  the  direct-path  ray  elevation  angle  is  used  in  place  of  the  surface-grazing 
angle. 

2.  The  complex  portions  of  the  PE  solution  are  determined  from  the  antenna  pattern  factors, 
elevation  angle,  and  gain.  The  initial  field  assumes  the  source  is  horizontally  polarized  over 
a  perfectly  conducting  ground. 
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3.1.2  Advanced  Propagation  Model  Step  (APMSTEP)  CSC.  The  APMSTEP  CSC  advances  the 
entire  APM  CSCI  algorithm  one  output  range  step,  referencing  various  SUs  to  calculate  the  propa¬ 
gation  loss  at  the  current  output  range.  At  this  current  range,  APM  calculations  will  be  made  within 
the  vertical  (up  to  the  maximum  PE  height  region)  by  accessing  the  appropriate  region’s  SUs. 

The  current  output  range  is  determined.  The  PESTEP  SU  is  referenced  to  obtain  the  PE  portion  of 
the  propagation  loss  at  this  new  range. 

If  running  in  full  hybrid  mode,  then  based  upon  a  height  array  index  used  within  the  FE  region,  a 
determination  is  made  for  the  necessity  to  include  FE  propagation  calculations.  If  so,  the  FEM  SU  is 
referenced  to  obtain  the  FE  portion  of  the  propagation  loss.  If  a  FE  calculation  is  made,  the  maxi¬ 
mum  height  index  for  the  RO  region  is  adjusted  (with  the  minimum  height  index  corresponding  to 
the  maximum  height  index  of  the  PE  region),  and  the  ROM  SU  is  referenced  to  obtain  the  RO  por¬ 
tion  of  the  propagation  loss  at  the  current  range.  FE  and  RO  propagation  loss  will  be  computed  only 
up  to  the  range  at  which  XO  calculations  will  be  performed. 

If  running  in  partial  hybrid  or  PE-only  modes,  then  only  the  PESTEP  SU  will  be  referenced  to 
obtain  the  PE  portion  of  the  propagation  loss  at  this  new  range.  For  the  partial  hybrid  mode,  the 
maximum  height  will  correspond  to  the  maximum  height  of  the  PE  calculation  region.  For  the  PE- 
only  mode,  the  maximum  height  corresponds  to  the  maximum  specified  coverage  height. 

Finally,  absorption  loss  is  computed  for  the  current  range  and  added  to  the  propagation  loss  at  all 
heights. 

3.1 .2.1  Calculate  Propagation  Loss  (CALCLOS)  SU.  The  CALCLOS  SU  determines  the  propa¬ 
gation  loss  from  the  complex  PE  field  at  each  output  height  point  at  the  current  output  range. 

The  local  ground  height  at  the  current  output  range  is  determined.  All  propagation  loss  values  at 
output  height  points  up  to  the  local  ground  height  are  then  set  to  zero.  The  first  valid  loss  point  is 
determined  corresponding  to  the  first  output  height  point  above  the  ground  height.  Next,  the  last 
valid  loss  point  is  determined  based  on  the  smaller  of  the  maximum  output  height  or  the  height 
traced  along  the  maximum  PE  propagation  angle  to  the  current  output  range. 

From  the  height  of  the  first  valid  loss  point  to  the  height  of  the  last  valid  loss  point,  the  GETPFAC 
SU  is  referenced  to  obtain  the  propagation  factor  in  dB  (field  strength  relative  to  free  space)  at  all 
corresponding  output  heights  at  the  previous  and  current  PE  ranges.  Then,  for  each  valid  output 
height,  horizontal  interpolation  in  range  is  performed  to  obtain  the  propagation  factor  at  the  current 
output  range.  From  the  propagation  factor  and  the  free-space  loss,  the  propagation  loss  at  each  valid 
output  height  is  then  determined,  with  the  propagation  loss  set  to  -1  for  all  output  height  points 
above  the  last  valid  output  height  but  less  than  the  maximum  output  height. 

If  running  in  full  or  partial  hybrid  modes,  the  propagation  factor  at  the  top  of  the  PE  region  is  de¬ 
termined  at  every  output  range  and  stored  in  an  array  for  future  reference  in  XO  calculations.  If  tro- 
poscatter  calculations  are  desired,  the  TROPO  SU  is  referenced  with  the  results  added  to  the  propa¬ 
gation  loss  array.  All  loss  values  returned  to  the  TESS-NC  CSCI  at  this  point  are  in  centibels  (10  cB 
=  1  dB). 

3.1 .2.2  DOSHIFT  SU.  The  DOSHIFT  SU  shifts  the  complex  PE  field  by  the  number  of  bins,  or  PE 
mesh  heights  corresponding  to  local  ground  height. 
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The  number  of  bins  to  be  shifted  are  determined.  The  PE  solution  is  then  shifted  downward  if  the 
local  ground  is  currently  at  a  positive  slope,  and  upward  if  the  local  ground  is  at  a  negative  slope. 

3.1 .2.3  Flat  Earth  Model  (FEM)  SU.  The  FEM  SU  computes  propagation  loss  at  a  specified  range 
based  upon  flat-earth  approximations.  Receiver  heights  are  corrected  for  earth  curvature  and  average 
refraction  based  on  twice  the  effective  earth  radius  computed  in  the  FELLHT  SU.  The  following 
steps  are  performed  for  each  APM  output  height. 

1.  The  path  lengths  and  elevation  angles  for  both  the  direct-path  and  surface-reflected  path, 
along  with  the  gracing  angle,  are  computed  from  simple  right  triangle  calculations.  Using 
the  two  elevation  angles,  the  ANTPAT  SU  is  referenced  to  obtain  an  antenna  pattern 
factor  for  each  angle.  Using  the  grazing  angle,  the  GETREFCOEF  SU  is  referenced  to 
obtain  the  magnitude  and  phase  lag  of  the  surface  reflection  coefficient. 

2.  From  the  path  length  difference,  the  phase  lag  of  the  surface  reflected  ray,  and  the  wave 
number,  a  total  phase  lag  is  determined.  Using  the  total  phase  lag,  the  magnitude  of  the 
surface  reflection  coefficient  and  the  two  antenna  pattern  factors,  the  two  ray  components 
are  coherently  summed  to  obtain  a  propagation  factor.  The  propagation  factor,  together 
with  the  free-space  propagation  loss  and  path  length  difference  of  the  direct-path  ray  are 
used  to  compute  the  propagation  loss. 

3.1 .2.4  Free-Space  Range  Step  (FRSTP)  SU.  The  FRSTP  SU  propagates  the  complex  PE  solu¬ 
tion  field  in  free  space  by  one  range  step. 

The  PE  field  is  transformed  to  p-space  and  then  multiplied  by  the  free  space  propagator.  Before 
exiting,  the  PE  field  is  transformed  back  to  z-space.  Both  transforms  are  performed  using  a  FFT  SU. 

3.1 .2.5  FZLIM  SU.  The  FZLIM  SU  determines  both  the  propagation  factor  (in  dB)  and  the  outgoing 
propagation  angle  at  the  top  of  the  PE  calculation  region.  These  values,  along  with  the  corresponding 
PE  range,  are  stored  for  future  reference  by  the  XOINIT  SU. 

The  GETPFAC  SU  is  referenced  to  determine  the  propagation  factor  at  the  last  height  mesh  point 
in  the  valid  part  of  the  PE  region.  The  propagation  factor,  along  with  the  range  and  the  local  ray  an¬ 
gle  (determined  from  the  ray  traced  separating  the  RO  and  PE  regions),  is  stored  if  this  is  the  first 
call  to  the  FZLIM  SU.  The  SPECEST  SU  is  then  referenced  to  determine  the  outgoing  propagation 
angle.  Depending  on  the  change  of  angles  from  one  range  step  to  the  next,  the  calculated  outgoing 
angle  will  be  limited.  The  storage  array  counter  is  incremented  and  the  outgoing  angle  stored. 

Before  exiting,  the  SAVEPRO  SU  is  referenced  to  store  the  refractivity  profiles  from  the  top  of 
the  PE  region  to  the  maximum  specified  coverage  height. 

3.1 .2.6  Get  Propagation  Factor  (GETPFAC)  SU.  The  GETPFAC  SU  determines  the  propagation 
factor  at  the  specified  height  in  dB. 

A  vertical  interpolation  with  height  on  the  PE  solution  field  is  performed  to  obtain  the  magnitude 
of  the  field  at  the  desired  output  height  point.  An  additional  calculation  is  made  and  the  propagation 
factor  is  then  returned  in  dB. 
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3.1 .2.7  Get  Reflection  Coefficient  (GETREFCOEF)  SU.  The  GETREFCOEF  SU  calculates  the 
complex  surface  reflection  coefficient,  along  with  the  magnitude  and  phase  angle. 

The  complex  reflection  coefficient  is  computed  from  a  specified  grazing  angle  and  is  based  on  the 
Fresnel  reflection  coefficient  equations  for  vertical  and  horizontal  polarization.  The  magnitude  and 
phase  angle  are  determined  from  the  complex  reflection  coefficient.  If  the  polarization  is  horizontal 
and  the  frequency  is  greater  than  300  MHz,  the  magnitude  of  the  reflection  coefficient  is  set  to  1  and 
the  phase  angle  is  set  to  K . 

3.1 .2.8  Parabolic  Equation  Step  (PESTEP)  SU.  The  PESTEP  SU  advances  the  PE  solution  one 
output  range  step,  referencing  various  SUs  to  calculate  the  propagation  loss  at  the  current  output 
range. 

The  next  output  range  is  determined  and  an  iterative  loop  begun  to  advance  the  PE  solution  such 
that  for  the  current  PE  range,  a  PE  solution  is  calculated  from  the  solution  at  the  previous  PE  range. 
This  procedure  is  repeated  until  the  output  range  is  reached. 

At  each  PE  range  step,  the  local  ground  height  is  determined  and  the  PE  field  is  “shifted”  by  the 
number  of  bins,  or  PE  mesh  height  points,  corresponding  to  the  local  ground  height.  This  is  per¬ 
formed  in  the  DOSHIFT  SU. 

If  using  vertical  polarization  and  the  current  ground  type  has  changed  from  the  previous  one,  a 
GETALN  SU  is  referenced  to  determine  the  impedance  term  and  all  associated  variables  used  for  the 
mixed  transform  calculations. 

If  the  APM  CSCI  is  being  used  in  a  range-dependent  mode,  that  is,  more  than  one  profile  has  been 
input;  or  a  terrain  profile  is  specified,  the  REFINTER  SU  is  referenced  to  compute  a  new  modified 
refractive  index  profile  adjusted  by  the  local  ground  height  at  the  current  range.  The  PHASE2  SU  is 
then  referenced  to  compute  a  new  environmental  phase  term  using  this  new  reffactivity  profile. 

Using  a  FRSTP  SU,  the  PE  solution  is  transformed  to  p-space,  advanced  by  the  free  space  propa¬ 
gator  array,  and  transformed  back  to  z-space.  The  environmental  phase  term  is  then  applied  to  obtain 
the  new  final  PE  solution  at  the  current  range.  Once  all  calculations  are  made  to  determine  the  PE 
field  at  the  current  PE  range,  the  FZLIM  SU  is  referenced  to  determine  and  store  the  outgoing 
propagation  factor  and  propagation  angle  at  the  top  of  the  PE  region.  The  FZLIM  SU  is  only  refer¬ 
enced  if  running  in  full  or  partial  hybrid  modes.  Finally,  a  CALCLOS  SU  is  referenced  to  obtain  the 
propagation  loss  at  the  desired  output  heights  at  the  current  output  range. 

3.1 .2.9  Ray  Trace  (RAYTRACE)  SU.  Using  standard  ray  trace  techniques,  a  ray  is  traced  from  a 
starting  height  and  range  with  a  specified  starting  elevation  angle  to  a  termination  range.  As  the  ray 
is  being  traced,  an  optical  path  length  difference  and  a  derivative  of  range  with  respect  to  elevation 
angle  are  being  continuously  computed.  If  the  ray  should  reflect  from  the  surface,  a  grazing  angle  is 
determined.  Upon  reaching  the  termination  range,  a  terminal  elevation  angle  is  determined  along 
with  a  termination  height. 

3.1.2.10  Refractivity  Interpolation  (REFINTER)  SU.  The  REFINTER  SU  interpolates  both  hori¬ 
zontally  and  vertically  on  the  modified  refractivity  profiles.  Profiles  are  then  adjusted  so  they  are 
relative  to  the  local  ground  height . 
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If  range-dependent  refractive  profiles  have  been  specified,  horizontal  interpolation  to  the  current 
PE  range  is  performed  between  the  two  neighboring  profiles.  A  REMDUP  SU  is  referenced  to  re¬ 
move  duplicate  refractivity  levels,  and  the  PROFREF  SU  is  then  referenced  to  adjust  the  new  profile 
relative  to  the  internal  reference  height  corresponding  to  the  minimum  height  of  the  terrain  profile. 
The  PROFREF  SU  is  referenced  once  more  to  adjust  the  profile  relative  to  the  local  ground  height, 
and  upon  exit  from  the  PROFREF  SU,  the  INTPROF  SU  is  referenced  to  interpolate  vertically  on 
the  refractivity  profile  at  each  PE  mesh  height  point. 

3.1.2.11  Remove  Duplicate  Refractivity  Levels  (REMDUP)  SU.  The  REMDUP  SU  removes  any 
duplicate  refractivity  levels  in  the  currently  interpolated  profile. 

3.1.2.12  Ray  Optics  Calculation  (ROCALC  SU).  The  ROCALC  SU  computes  the  RO  components 
that  will  be  needed  in  the  calculation  of  propagation  loss  at  a  specified  range  and  height  within  the 
RO  region.  These  components  are  the  amplitudes  for  a  direct-path  and  surface-reflected  ray,  and  the 
total  phase  lag  angle  between  the  direct-path  and  surface-reflected  rays. 

A  test  is  made  to  determine  if  this  is  the  first  RO  calculation.  If  an  initial  calculation  is  needed,  the 
height,  range,  and  elevation  angle  array  indices  are  set  to  initial  conditions.  If  not,  the  array  indices 
are  incremented  from  the  previous  RO  calculation. 

The  following  steps  are  performed  for  each  series  of  vertical  grid  points,  in  a  manner  that  ensures 
that  RO  calculations  have  been  performed  at  ranges  that  span  the  current  range  of  interest.  The  verti¬ 
cal  grid  points  are  taken  in  order  beginning  with  the  one  with  greatest  height. 

1.  Using  a  Newton  iteration  method  with  a  varying  elevation  angle,  the  RAYTRACE  SU  is 
referenced  to  find  a  direct-path  ray  and  a  surface-reflected  ray  which  will  originate  at  the 
transmitter  height  and  terminate  at  the  same  grid  point.  Should  a  direct  or  reflected  ray 
not  be  found  to  satisfy  the  condition,  or  should  the  computed  grazing  angle  exceed  the 
grazing  angle  limit,  the  height  array  index  is  adjusted  to  redefine  the  lower  boundary  of 
the  RO  region.  Should  the  ray  trace  conditions  be  satisfied,  the  RAYTRACE  SU  will 
provide  a  terminal  elevation  angle,  a  derivative  of  range  with  respect  to  elevation  angle,  a 
path  length,  and  for  the  surface-reflected  ray,  a  grazing  angle. 

2.  Using  the  final  direct-path  ray  and  surface-reflected  ray  elevation  angles  obtained  from 
the  Newton  iteration  method,  the  ANTPAT  SU  is  referenced  to  obtain  an  antenna  pattern 
factor  for  each  angle.  The  GETREFCOEF  SU  is  referenced  to  obtain  the  amplitude  and 
phase  lag  angle  of  the  surface  reflection  coefficient. 

3.  Using  the  antenna  pattern  factors,  path  length  differences,  and  surface-reflection  coeffi¬ 
cients,  the  necessary  RO  components  defined  in  the  first  paragraph  above  are  calculated. 

3.1.2.13  Ray  Optics  Loss  (ROLOSS)  SU.  The  ROLOSS  SU  calculates  the  propagation  loss  values 
at  a  specified  range  and  height  based  upon  the  components  of  magnitude  for  a  direct-path  and  sur¬ 
face-reflected  ray  and  the  total  phase  lag  angle  between  the  two  rays  as  determined  by  the  ROCALC 
SU. 

For  purposes  of  computational  efficiency,  an  interpolation  from  the  magnitude  and  total  phase  lag 
arrays,  established  by  the  ROCALC  SU,  is  made  to  obtain  these  three  quantities  at  each  APM  verti¬ 
cal  output  mesh  point  within  the  RO  region. 
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From  the  interpolated  phase  lag  and  ray  amplitudes,  a  propagation  factor  is  calculated  which  is 
used,  in  turn,  with  the  free-space  propagation  loss  to  obtain  a  propagation  loss  at  each  vertical  APM 
output  point. 

3.1 .2.1 4  Ray  Optics  Model  (ROM)  SU.  The  ROM  SU  provides  a  one-call  routine  for  RO  calcula¬ 
tions. 

The  SU  references  the  ROCALC  SU  and  determines  the  loss  at  specified  height  output  points  by 
referencing  the  ROLOSS  SU. 

3.1.2.15  Save  Profile  (SAVEPRO)  SU.  The  SAVEPRO  SU  stores  reffactivity  profiles  at  each  PE 
range  step  from  the  top  of  the  PE  region  to  the  maximum  user-specified  height.  This  is  only  done  if 
running  in  full  or  partial  hybrid  modes. 

The  reffactivity  height  level  which  just  exceeds  the  PE  region  height  limit,  is  determined.  From 
this  level  upward,  all  heights,  M-units,  and  gradients  are  stored. 

3.1.2.16  Spectral  Estimation  (SPECEST)  SU.  The  SPECEST  SU  determines,  via  spectral  estima¬ 
tion,  the  outward  propagation  angle  at  the  top  of  the  PE  calculation  region. 

The  upper  8  (if  running  smooth  surface  case)  or  16  (if  running  terrain  case)  bins  of  the  complex 
PE  field  at  the  current  PE  range  are  separated  into  their  real  and  imaginary  components.  The  upper  Va 
of  this  portion  of  the  field  is  then  filtered  and  zero-padded  to  256  points.  It  is  then  transformed  to  its 
spectral  components  via  a  reference  to  the  SINFFT  SU.  The  amplitudes  of  the  spectral  field  are  then 
determined  and  a  three-point  average  is  performed.  The  peak  of  the  256-point  field  is  then  found  and 
the  outgoing  propagation  angle  is  determined  from  the  peak  value. 

3.1.2.17  Troposcatter  (TROPO)  SU.  The  TROPO  SU  determines  the  loss  due  to  troposcatter  and 
to  compute  the  appropriate  loss  from  troposcatter  and  propagation  loss. 

The  current  output  range  is  updated  and  the  tangent  angle  from  the  source  to  the  current  output 
range  is  initialized.  For  all  output  receiver  heights  at  the  current  output  range,  the  following  proce¬ 
dure  is  performed. 

1.  If  the  current  output  range  is  less  than  the  minimum  diffraction  field  range  for  a  particular 
receiver  height,  then  the  SU  is  exited  and  no  troposcatter  loss  is  computed. 

2.  The  tangent  angle  from  the  receiver  height  is  determined. 

3.  The  common  volume  scattering  angle  is  determined  and  calculations  are  performed  to 
obtain  the  loss  due  to  troposcatter. 

4.  Troposcatter  loss  is  compared  to  propagation  loss.  If  the  difference  between  the  propaga¬ 
tion  loss  and  troposcatter  loss  is  less  than  18  dB,  then  the  corresponding  power  levels  of 
the  two  loss  values  are  added.  If  the  difference  is  greater  than  18  dB,  then  the  lesser  of  the 
two  losses  is  used. 

3.1.3  Extended  Optics  Initialization  (XOINIT)  CSC 

The  purpose  of  the  XOINIT  SU  is  to  initialize  the  range,  height,  and  angle  arrays  in  preparation 
for  the  XOSTEP  CSC. 
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Upon  entering,  all  dynamically  allocated  arrays  used  for  XO  calculations  are  allocated  and  ini¬ 
tialized  to  0.  The  ranges  and  angles  previously  stored  from  referencing  the  FZLIM  SU  are  now  used 
to  initialize  the  range  and  angle  arrays.  A  10-point  smoothing  average  on  the  angle  array  is  per¬ 
formed  twice  via  reference  to  the  SMOOTH  SU.  Upon  exiting,  the  height  array  and  initial  height 
index  for  start  of  XO  calculations  are  initialized. 

3.1 .3.1  Smooth  (SMOOTH)  SU.  The  SMOOTH  SU  performs  an  n-point  average  smoothing  on  any 
array  passed  to  it. 

3.1.4  Extended  Optics  Step  (XOSTEP)  CSC 

The  XOSTEP  CSC  advances  the  APM  CSCI  algorithm  one  output  range  step  from  the  top  of  the 
PE  calculation  region  to  the  maximum  output  height  specified,  referencing  various  SUs  to  calculate 
the  propagation  loss  at  the  current  output  range. 

Upon  entering  the  XOSTEP  CSC,  the  current  output  range  is  determined.  The  EXTO  SU  is  refer¬ 
enced  to  obtain  the  XO  portion  of  the  propagation  loss  at  this  new  range. 

If  running  in  full  hybrid  mode,  based  upon  a  height  array  index  used  within  the  FE  region,  it  is 
determined  if  it  is  necessary  to  include  FE  propagation  calculations.  If  necessary,  the  FEM  SU  is 
referenced  to  obtain  the  FE  portion  of  the  propagation  loss.  If  a  FE  calculation  is  made,  the  maxi¬ 
mum  height  index  for  the  RO  region  is  adjusted  (with  the  minimum  height  index  corresponding  to 
the  maximum  height  index  of  the  PE  region),  and  the  ROM  SU  is  referenced  to  obtain  the  RO  por¬ 
tion  of  the  propagation  loss  at  the  current  range. 

If  running  in  partial  hybrid  mode,  then  only  the  EXTO  SU  is  referenced  to  obtain  the  XO  portion 
of  the  propagation  loss  at  this  new  range.  The  maximum  height  will  correspond  to  the  maximum 
user-specified  coverage  height. 

Finally,  absorption  loss  is  computed  for  the  current  range  and  added  to  the  propagation  loss  at  all 
heights. 

3.1 .4.1  Extended  Optics  (EXTO)  SU.  The  EXTO  SU  calculates  propagation  loss,  based  on  ex¬ 
tended  optics  techniques,  at  the  current  output  range. 

Upon  entering,  array  indices  for  the  current  range,  height,  and  angle  arrays  are  initialized.  A  ray 
trace  is  then  performed  for  all  rays  from  the  last  output  range  to  the  current  output  range.  The  current 
heights  are  then  sorted,  along  with  their  corresponding  propagation  factors.  The  propagation  loss  is 
then  determined  at  each  output  receiver  height  by  interpolation  on  the  terminal  heights  of  the  traced 
rays. 

Upon  exiting,  a  reference  to  the  TROPO  SU  provides  any  troposcatter  losses  and  this  is  added  to 
the  loss  array. 

3.1.5  Advanced  Propagation  Model  Clean  (APMCLEAN)  CSC 

The  APMCLEAN  CSC  deallocates  all  dynamically  dimensioned  arrays  used  in  one  complete  run 
of  APM  calculations. 
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3.2  CSCI  EXTERNAL  INTERFACE  REQUIREMENTS 


The  APM  CSCI  is  accessed,  through  the  APMINIT  CSC,  by  a  subroutine  call  from  the  TESS-NC 
CSCI  which  should  provide,  as  global  data  elements,  the  values  specified  in  table  1  through  4. 

The  APM  CSCI  external  data  elements  (i.e.,  data  which  must  be  provided  by  the  calling  TESS-NC 
CSCI  prior  to  the  APM  CSCI  execution  may  be  divided  into  four  classifications).  The  first  classifi¬ 
cation  is  external  data  related  to  the  atmospheric  environment,  specified  within  table  1;  the  second  is 
data  related  to  the  EM  system,  specified  in  table  2;  the  third  is  data  related  to  the  implementation  of 
the  APM  CSCI  by  the  TESS-NC  CSCI,  specified  in  table  3;  and  the  fourth  is  data  related  to  the  ter¬ 
rain  information,  specified  in  table  4.  Each  table  lists  the  type,  units,  and  bounds  of  each  data  ele¬ 
ment.  Table  5  specifies  the  output  data  of  the  APM  CSCI  model. 


Table  1 .  APM  CSCI  environmental  data  element  requirements. 


Name 

Description 

Type 

Units 

Bounds 

refmsl 

Profile  modified  refractivity  (dy¬ 
namically  allocated)  array  refer¬ 
enced  to  mean  sea  level 

real 

M 

>0.0“ 

hmsl 

Profile  height  (dynamically  allo¬ 
cated)  array 

real 

meters 

See  note  b 

Number  of  profiles 

integer 

N/A 

>1 

Ivlp 

Number  of  profile  levels 

integer 

N/A 

>2 

rngprof 

Dynamically  allocated  array  of 
ranges  to  each  profile 

real 

meters 

>0.0 

absH,m 

Surface  absolute  humidity 

real 

g/m3 

0  to  50c 

*',r 

Surface  air  temperature 

real 

°C 

-20  to  40c 

7a 

Surface  specific  attenuation 

real 

dB/km 

>0.0 

l extra 

Extrapolation  flag  for  refractivity 
profiles  entered  below  mean  sea 
level 

integer 

N/A 

Oorl 

“Couplets  of  height  and  modified  refractivity  associated  with  that  height 
are  referred  to  within  this  document  as  an  environmental  profile. 


bAII  heights  in  the  refractivity  profile  must  be  steadily  increasing. 

cThe  CCIR  gaseous  absorption  model  implemented  within  APM  provides 
a  ±15%  accuracy  for  absolute  humidity  and  surface  air  temperature  within 
these  bounds.  While  values  beyond  these  limits  are  allowed  within  APM, 
it  should  be  noted  this  may  result  in  less  accurate  attenuation  rates  cal¬ 
culated. 
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Table  2.  APM  CSCI  external  EM  System  data  element  requirements 


Name 

Description 

Type 

Units 

Bounds 

Antenna  vertical  beam  width 

real 

I 

degree 

.5  to  45 

A, 

Antenna  elevation  angle 

real 

degree 

-50.0  to  50.0 

Lhz 

EM  system  frequency 

real 

MHz 

100.0  to  20,000.0 

ip* 

Antenna  pattern 

1  =  Omni-directional 

2  =  Gaussian 

3  =  Sine  (X)/X 

4  =  Cosecant-squared 

5  =  Generic  height-finder 

6  =  User-defined  height- 

finder 

integer 

N/A 

1  to  6 

ipot 

Antenna  polarization 

0  =  Horizontal 

1  =  Vertical 

integer 

N/A 

Oorl 

ant,. 

Antenna  height  above  local 
ground  at  range  0.0  m 

real 

meters 

>  1.0 

hfang 

Dynamically  allocated  user- 
defined  height-finder  power  re¬ 
duction  angle  array 

real 

degree 

0.0  to  90.0 

hffac 

Dynamically  allocated  user- 
defined  power  reduction  factor 
array 

real 

N/A 

0.0  to  1.0 

n/*. 

Number  of  power  reduction  an¬ 
gles/factors  for  user-defined 
height  finder  radar 

integer 

N/A 

1  to  10 
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Table  3.  APM  CSCI  external  implementation  constants. 


Name 

Description 

Type 

Units 

Bounds 

Number  of  range  output  points  for  a 
particular  application  of  APM 

integer 

N/A 

>1 

Number  of  height  output  points  for  a 
particular  application  of  APM 

integer 

N/A 

>1 

lerr6 

Logical  flag  to  allow  for  error  -6  to  be 
bypassed 

logical 

N/A 

‘.true.’  or 

‘.false.’  a 

lerrl2 

Logical  flag  to  allow  for  error  -12  to 
be  bypassed 

logical 

N/A 

‘.true.’  or 

‘.false.’ a 

i 

tropo 

Flag  to  include  troposcatter  calcula¬ 
tions  (0  =  no,  1  =  yes) 

integer 

N/A 

0  or  1 

rnuu 

Maximum  range  output  for  a  particu¬ 
lar  application  of  APM 

real 

meters 

£  5000.0  b 

Kn 

Minimum  height  output  for  a  particu¬ 
lar  application  of  APM 

real 

meters 

>0.0C 

Maximum  height  output  for  a  par¬ 
ticular  application  of  APM 

real 

meters 

>  100.0  b 

a  refer  to  section  3.5.1  for  a  complete  description. 


b  refer  to  section  3.5.2  for  a  complete  description. 
c  refer  to  section  3.5.3  for  a  complete  description. 
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Table  4.  APM  CSCI  external  terrain  data  element  requirements. 


Name 

Description 

Type 

Units 

Bounds 

terx 

Dynamically  allocated  terrain  profile 
range  array 

real 

meters 

>0.0a 

tery 

Dynamically  allocated  terrain  profile 
height  array 

real 

meters 

>  0.0  a 

K 

Number  of  terrain  profile  points  for  a 
particular  application  of  APM 

integer 

N/A 

>2 

hr 

Number  of  ground  types  for  a  par¬ 
ticular  application  of  APM 

integer 

N/A 

>0.0a 

igmd 

Array  of  ground  composition  types 
for  a  particular  application  of  APM 

0  =  Sea  water 

1  =  Fresh  water 

2  =  Wet  ground 

3  =  Medium  dry  ground 

4  =  Very  dry  ground 

5  =  Ice  at  -1°  C 

6  =  Ice  at  -10°  C 

7  =  User-defined 

integer 

N/A 

0  <  igrnd<  7a 

rgmd 

Dynamically  allocated  array  of 
ranges  for  which  ground  types  are 
applied  for  a  particular  application  of 
APM 

real 

meters 

>0.0a 

dielec 

Dynamically  allocated  2-dimensional 
array  of  relative  permittivity  and  con¬ 
ductivity  for  a  particular  application  of 
APM 

real 

N/A 

>0a 

a  refer  to  Section  3.5.3  for  a  complete  description. 
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Table  5.  APM  CSCI  output  data  element  requirements. 


Name 

Description 

Type 

Units 

Source 

f xostp 

Index  of  output  range  step  at  which 

XO  model  is  to  be  applied 

integer 

N/A 

APMINIT  CSC 

i 

error 

Integer  value  that  is  returned  if  an 
error  occurs  in  called  routine 

integer 

N/A 

APMINIT  CSC 
XOINIT  CSC 
APMCLEAN  CSC 

mloss 

Propagation  loss 

integer 

cB 

APMSTEP  CSC 
XOSTEP  CSC 

J  start 

Output  height  index  at  which  valid 

PE  propagation  loss  values  begin 

integer 

N/A 

APMSTEP  CSC 

J  end 

Output  height  index  at  which  valid 

PE  propagation  loss  values  end 

integer 

N/A 

APMSTEP  CSC 

r 

out 

Current  range 

real 

meters 

APMSTEP  CSC 
XOSTEP  CSC 

J xstart 

Output  height  index  at  which  valid 

XO  propagation  loss  values  begin 

integer 

N/A 

XOINIT  CSC 

Jxend 

Output  height  index  at  which  valid 

XO  propagation  loss  values  end 

integer 

N/A 

XOSTEP  CSC 

aRefer  to  Section  3.5.1  for  a  complete  description. 


3.3  CSCI  INTERNAL  INTERFACE  REQUIREMENTS 

Section  3.1  shows  the  relationship  between  the  APM  CSCI  and  its  five  CSCs  APMINTT, 
APMSTEP,  XOINIT,  XOSTEP,  and  APMCLEAN.  The  required  internal  interface  between  these 
five  CSCs  and  the  APM  CSCI  is  left  to  the  designer.  However,  table  6  should  be  used  as  a  guide  to 
the  required  internal  interfaces  in  the  CSCI. 

3.4  CSCI  INTERNAL  DATA  REQUIREMENTS 

The  APM  CSCI  takes  full  advantage  of  Fortran  90  features,  utilizing  allocatable  arrays  for  all  in¬ 
ternal  and  input  arrays.  This  requires  the  TESS-NC  CSCI  designer  to  correctly  allocate  and  initialize 
all  arrays  necessary  for  input  to  the  APM  CSCI.  The  APMCLEAN  CSC  is  provided  as  part  of  the 
APM  CSCI  and  should  be  called  by  the  TESS-NC  application  to  deallocate  all  arrays  used  by  the 
APM  CSCI  in  one  complete  run. 

Due  to  the  computational  intensity  of  the  APM  CSCI,  it  may  not  be  necessary  or  desirable  to  use 
the  extreme  capability  of  the  APM  CSCI  for  all  applications.  The  variables  nmui  and  nam  refer  to  the 
desired  number  of  range  and  height  output  points  for  any  one  particular  application,  and  will  be 
specified  when  the  APMINIT  CSC  is  called. 

One  of  the  parameters  returned  to  the  TESS-NC  application  from  the  APMINIT  CSC  is  ierror.  This 
allows  greater  flexibility  in  how  input  data  are  handled  within  the  TESS-NC  application. 

Table  Table  6  lists  all  possible  errors  that  can  be  returned. 
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Table  6.  APMINIT  SU  returned  error  definitions. 


error  _ _ _ _ _ Definition 

-6  Last  range  in  terrain  profile  is  less  than  r^.  Will  only  return  this  error  if  lerr6 
set  to  ‘.true.’ 


-7 

-8 

-9 


-10 

-12 


-13 


-14 


Specified  cut-back  angles  (for  user-defined  height  finder  antenna  pattern)  are 
not  increasing 

is  less  than  maximum  height  of  terrain  profile 

Antenna  height  with  respect  to  mean  sea  level  is  greater  than  maximum 
height,  h, _ 

Beamwidth  is  less  than  or  equal  to  zero  for  directional  antenna  pattern. 

Range  of  last  environment  profile  given  (for  range-dependent  case)  is  less 
than  Will  only  return  this  error  if  lerrl2  set  to  ‘.true.’ 

Height  of  first  level  in  any  user-specified  refractivity  profile  is  greater  than  0. 
First  height  must  be  at  mean  sea  level  (0.0)  or  <  0.0  if  below  mean  sea  level 

Last  gradient  in  any  environment  profile  is  negative 
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Range  points  of  terrain  profile  are  not  increasing 


-18  First  range  value  in  terrain  profile  is  not  0. 

-42  Minimum  height  input  by  user,  hmin,  is  greater  than  maximum  height, 


The  logical  variables,  lerr6  and  lerr!2,  when  set  to  ‘.false.’,  allow  the  TESS-NC  application  to 
bypass  their  associated  errors  as  these  are  not  critical  to  the  operation  of  the  APM  CSCI. 

The  APM  CSCI  provides  propagation  loss  for  all  heights  and  ranges  when  running  in  a  full  hybrid 
mode.  When  running  in  a  partial  hybrid  mode,  it  does  provide  propagation  loss  for  all  heights,  but 
not  necessarily  for  all  angles.  Finally,  it  will  be  limited  in  both  height  and  angle  coverage  when  run¬ 
ning  in  a  PE-only  mode.  Refer  to  Section  0  for  environmental  conditions  under  which  each  execu¬ 
tion  mode  is  automatically  selected. 

Absorption  by  atmospheric  gases  (oxygen  and  water  vapor)  may  be  important  to  some  applica¬ 
tions  of  the  APM  CSCI  and  is  controlled  by  specifying  a  non-zero  value  for  the  absolute  humidity, 
abshum,  and  the  surface  air  temperature,  tair,  or  likewise,  specifying  a  non-zero  value  for  the  gaseous 
absorption  attenuation  rate,  ya. 

A  particular  application  of  the  APM  CSCI  may  or  may  not  require  the  consideration  of  troposcat- 
ter  effects  within  the  propagation  loss  calculations.  For  example,  a  radar  evaluation  most  likely 
would  not  be  influenced  by  troposcatter;  while  an  ESM  evaluation  would.  APM  has  the  feature  of 
including  or  not  including  the  troposcatter  calculation  by  setting  a  parameter  called  impo.  Setting  this 
parameter  to  0  would  omit  the  calculation.  Setting  this  parameter  to  1  would  include  the  calculation. 
For  the  APM  CSCI  implementation  within  the  TESS-NC  coverage  and  loss  diagram  applications, 
i  must  be  set  equal  to  1  so  as  to  include  the  calculation. 

tropn  ■* 
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3.5  ADAPTATION  REQUIREMENTS 


3.5.1  Environmental  Radio  Refractivity  Field  Data  Elements 

The  radio-refractivity  field  (i.e.,  the  profiles  of  M-units  versus  height)  must  consist  of  vertical 
piece-wise  linear  profiles  specified  by  couplets  of  height  in  meters  with  respect  to  mean  sea  level 
and  modified  refractivity  (M-units)  at  multiple  arbitrary  ranges.  All  vertical  profiles  must  contain  the 
same  number  of  vertical  data  points,  and  be  specified  such  that  each  numbered  data  point  corre¬ 
sponds  to  like-numbered  points  (i.e.,  features)  in  the  other  profiles.  The  first  numbered  data  point  of 
each  profile  must  correspond  to  a  height  of  zero  mean  sea  level  and  the  last  numbered  data  point 
must  correspond  to  a  height  such  that  the  modified  refractivity  for  all  greater  heights  is  well  repre¬ 
sented  by  extrapolation  using  the  two  highest  profile  points  specified. 

With  the  inclusion  of  terrain  and  allowing  the  terrain  profile  to  fall  below  mean  sea  level,  refrac- 
tivity  profiles  can  also  be  provided  in  which  the  first  level  is  less  than  0  (or  below  mean  sea  level). 
For  a  terrain  profile  that  falls  below  mean  sea  level  at  some  point,  the  assumption  is  that  the  mini¬ 
mum  height  may  be  less  than  the  first  height  in  any  refractivity  profile  specified.  Therefore,  an  ex¬ 
trapolation  flag,  itxua,  must  be  specified  to  indicate  how  the  APM  CSCI  should  extrapolate  from  the 
first  refractivity  level  to  the  minimum  height  along  the  terrain  profile.  Setting  iema  to  0  will  cause  the 
APM  CSCI  to  extrapolate  to  the  minimum  height  using  a  standard  atmosphere  gradient;  setting  iextra 
to  1  will  cause  the  APM  CSCI  to  extrapolate  to  the  minimum  height  using  the  gradient  determined 
from  the  first  two  levels  of  the  refractivity  profile. 

Within  each  profile,  each  numbered  data  point  must  correspond  to  a  height  greater  than  or  equal  to 
the  height  of  the  previous  data  point.  Note  that  this  requirement  allows  for  a  profile  that  contains 
redundant  data  points.  Note  also  that  all  significant  features  of  the  refractivity  profiles  must  be  speci¬ 
fied,  even  if  they  are  above  the  maximum  output  height  specified  for  a  particular  application  of 
APM. 

The  TESS-NC  CSCI  application  designer  and  the  TESS-NC  operator  share  responsibility  for  de¬ 
termining  appropriate  environmental  inputs.  For  example,  a  loss  diagram  may  be  used  to  consider  a 
surface-to-surface  radar  detection  problem.  Since  the  operator  is  interested  in  surface-to-surface,  he 
may  truncate  the  profile  assuming  that  effects  from  elevated  ducting  conditions  are  negligible.  It 
may  be,  however,  that  the  elevated  duct  does  indeed  produce  a  significant  effect.  The  operator 
should  ensure,  therefore,  that  the  maximum  height  of  the  profile  allows  for  the  inclusion  of  all  sig¬ 
nificant  refractive  features. 

This  specification  allows  a  complicated  refractivity  field  to  be  described  with  a  minimum  of  data 
points.  For  example,  a  field  in  which  a  single  trapping  layer  linearly  descends  with  increasing  range 
can  be  described  with  just  two  profiles  containing  only  four  data  points  each,  frame  (a)  of  figure  8. 

In  the  same  manner,  other  evolutions  of  refractive  layers  may  be  described.  Frames  (b)  and  (c)  of 
figure  8  show  two  possible  scenarios  for  the  development  of  a  trapping  layer.  The  scenario  of  choice 
is  the  one  which  is  consistent  with  the  true  thermodynamical  and  hydrological  layering  of  the  atmos¬ 
phere. 
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(a) 


Figure  8.  Idealized  M-unit  profiles  (solid)  and  lines  of  interpolation  (dashed). 


Two  external  implementation  data  variables  applicable  to  both  the  TESS-NC  operator  and  to  the 
calling  application  designer  are  rmax,  the  maximum  APM  CSCI  output  range,  and  h^,  the  maximum 
APM  CSCI  output  height.  These  two  parameters  are  required  by  the  APM  CSCI  to  determine  the 
horizontal  and  vertical  resolution,  respectively,  for  internal  range  and  height  calculations  based  on 
the  current  values  of  nroutand  nwuf  Any  value  of  rmax  and  hmax  is  allowed  for  the  convenience  of  the 
TESS-NC  operator  and  the  calling  application  designer,  provided  >  5  km,  and  >  100  m.  For 
example,  the  TESS-NC  operator  may  desire  a  coverage  diagram  that  extends  to  a  range  of  500  kilo¬ 
meters  (km).  In  addition  to  accommodating  the  desires  of  the  operator,  specification  of  such  a  con¬ 
venient  maximum  range  eases  the  burden  for  the  application  designer  in  determining  incremental 
tick  marks  for  the  horizontal  axis  of  the  display. 

Provided  the  value  of  the  parameter,  lerr!2,  is  set  to  ‘.false.’,  if  the  furthest  environment  profile 
range  is  less  than  rmax,  the  APM  CSCI  will  automatically  create  an  environment  profile  at  equal  to 
the  last  profile  specified,  making  the  environment  homogeneous  from  the  range  of  the  last  profile 
specified  to  rmajc.  For  example,  a  profile  is  input  with  an  accompanying  range  of  450  km.  If  the  TESS- 
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NC  operator  chooses  an  rmax  of  500  km,  the  APM  CSCI  will  continue  loss  calculations  to  500  km, 
keeping  the  reffactivity  environment  homogeneous  from  450  to  500  km. 

If  lerrl2  is  set  to  ‘.true.’  and  the  furthest  environment  profile  range  is  less  than  r^,  then  an  error 
will  be  returned  in  iemr  from  the  APMINIT  CSC.  This  is  to  allow  the  TESS-NC  CSCI  application 
designer  greater  flexibility  in  how  environment  data  is  handled. 

3.5.2  Terrain  Profile  Data  Element 

The  terrain  profile  must  consist  of  linear  piece-wise  segments  specified  in  terms  of  range/height 
pairs.  All  range  values  must  be  increasing,  and  the  first  terrain  height  value  must  be  at  range  zero. 
General  ground  composition  types  can  be  specified  (table  4)  along  with  corresponding  ranges  over 
which  the  ground  type  is  to  be  applied.  If  ground  type  “User  Defined”  is  specified  ( igmdi  =  7),  then 
numeric  values  of  relative  permittivity  and  conductivity  must  be  given.  If  horizontal  antenna  polari¬ 
zation  is  specified,  the  APM  CSCI  will  assume  perfect  conductivity  for  the  entire  terrain  profile  and 
will  ignore  any  information  regarding  ground  composition.  If  vertical  antenna  polarization  is  speci¬ 
fied,  then  information  regarding  ground  composition  must  also  be  specified. 

The  maximum  height,  hmax,  must  always  be  greater  than  the  minimum  height,  hmin.  Also,  a  value  of 
must  be  given  such  that  it  is  larger  than  the  maximum  elevation  height  along  a  specified  terrain 
profile. 

Provided  lerr6  is  set  to  ‘.false.’,  if  the  furthest  range  point  in  the  terrain  profile  is  less  than  r^,  the 
APM  CSCI  will  automatically  create  a  height/range  pair  as  part  of  the  terrain  profile  at  r ■ma  with  ele¬ 
vation  height  equal  to  the  last  height  specified  in  the  profile,  making  the  terrain  profile  flat  from  the 
range  of  the  last  profile  point  specified  to  rmax.  For  example,  a  terrain  profile  is  input  where  the  last 
height/range  pair  is  50  meters  (m)  in  height  with  an  accompanying  range  of  95  km.  If  the  TESS-NC 
operator  chooses  an  r ^  of  100  km,  the  APM  CSCI  will  continue  loss  calculations  to  100  km,  keep¬ 
ing  the  terrain  profile  flat  from  95  km  to  100  km  with  an  elevation  height  of  50  m. 

If  lerr6  is  set  to  ‘.true.’  and  the  furthest  range  point  is  less  than  r  ,  then  an  error  is  returned  in  i 
from  the  APMINIT  SU.  This  is  to  allow  the  TESS-NC  CSCI  application  designer  greater  flexibility 
in  how  terrain  data  is  handled. 

3.6  SECURITY  AND  PRIVACY  REQUIREMENTS 

The  security  and  privacy  requirements  are  the  same  as  those  required  by  the  target  employing 
TESS-NC  CSCI. 

3.7  CSCI  ENVIRONMENTAL  REQUIREMENTS 

The  APM  CSCI  must  be  able  to  operate  in  the  same  hardware  and  software  environments  that  the 
target  employing  TESS-NC  CSCI  operates. 

3.8  COMPUTER  RESOURCE  REQUIREMENTS 

Section  3.1.1.18  describes  requirements  for  a  Sine  Fast  Fourier  Transform  (SinFFT)  SU.  However, 
other  sine  FFT  routines  are  available  in  the  commercial  market,  and  such  a  sine  FFT  may  already  be 
available  within  another  TESS-NC  CSCI.  The  selection  of  which  FFT  ultimately  used  by  APM 
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mately  used  by  APM  CSCI  is  left  to  the  application  designer  as  every  sine  FFT  will  have  hardware 
and/or  software  performance  impacts. 

3.9  SOFTWARE  QUALITY  FACTORS 

The  primary  required  quality  factors  can  be  divided  into  the  three  categories — design,  perform¬ 
ance,  and  adaptation. 

The  quality  factors  for  the  design  category  should  include  correctness,  maintainability,  and  verifi¬ 
ability.  Correctness  describes  the  extent  to  which  the  APM  CSCI  conforms  to  its  requirements  and  is 
to  be  determined  from  the  criteria — completeness,  consistency,  and/or  traceability.  Maintainability 
specifies  the  effort  required  to  locate  and  fix  an  error  in  the  APM  CSCI.  Maintainability  is  to  be  de¬ 
termined  from  the  criteria — consistency,  modularity,  self-descriptiveness  (self-documentation), 
and/or  simplicity.  Verifiability  characterizes  the  effort  required  to  test  the  APM  CSCI  to  ensure  that 
it  performs  its  intended  function.  Verifiability  is  to  be  determined  from  the  criteria — modularity, 
self-descriptiveness,  and/or  simplicity. 

The  quality  factor  for  performance  category  is  reliability,  which  depicts  the  confidence  that  can  be 
placed  in  the  APM  CSCI  calculations.  Reliability  is  to  be  determined  from  the  criteria — accuracy, 
anomaly  management,  auditability,  consistency,  and/or  simplicity. 

The  quality  factors  for  the  adaptation  category  are  portability  and  reusability.  Portability  deter¬ 
mines  how  easy  it  is  to  transport  the  APM  CSCI  from  one  hardware  and/or  software  environment  to 
another.  Portability  is  to  be  determined  from  the  criteria — application  independence,  modularity, 
and/or  self-descriptiveness.  Reusability  illustrates  how  easy  it  is  to  convert  the  APM  CSCI  (or  parts 
of  the  CSCI)  for  use  in  another  application.  Reusability  is  to  be  determined  from  the  criteria  -  appli¬ 
cation  independence,  document  accessibility,  functional  scope,  generality,  hardware  independence, 
modularity,  simplicity,  self-descriptiveness,  and/or  system  clarity. 

Section  A.l  defines  the  software  quality  criteria. 

Only  the  software  quality  criteria  completeness,  consistency,  and  traceability  can  be  analyzed. 
Their  calculation  is  described  in  Section  A.2.  The  other  criteria  have  to  be  determined  by  either 
demonstration,  test,  or  inspection. 

3.10  DESIGN  AND  IMPLEMENTATION  CONSTRAINTS 

3.10.1  Implementation  And  Application  Considerations 

The  calling  TESS-NC  CSCI  application  will  determine  the  employment  of  the  APM  CSCI.  How¬ 
ever,  the  intensive  computational  nature  of  the  APM  CSCI  must  be  taken  into  consideration  when 
designing  an  efficient  calling  application.  For  this  reason,  the  APM  CSCI  should  be  designed  with 
flexibility  for  various  hardware  suites  and  computer  resource  management  considerations.  As  stated 
in  Section  1.1,  this  APM  CSCI  applies  only  to  a  coverage  and  loss  diagram  application.  The  follow¬ 
ing  highly  recommended  guidelines  are  provided  to  aid  in  the  design  of  a  coverage  or  loss  diagram 
application  which  will  most  efficiently  employ  the  APM  CSCI. 

The  APM  CSCI  propagation  loss  calculations  are  independent  of  any  target  or  receiver  considera¬ 
tions,  therefore,  for  any  EM  emitter,  one  execution  of  the  APM  CSCI  may  be  used  to  create  both  a 
coverage  diagram  and  a  loss  diagram.  Since  both  execution  time  and  computer  memory  allocation 
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should  be  a  consideration  when  employing  this  model,  it  is  most  efficient  and  appropriate  to  execute 
the  APM  CSCI  for  a  particular  EM  system/environmental/terrain  combination  before  executing  any 
application.  The  output  of  the  APM  CSCI  would  be  stored  in  a  file  which  would  be  accessed  by 
multiple  applications. 

For  example,  the  TESS-NC  operator  may  desire  a  coverage  diagram  for  one  particular  radar  sys¬ 
tem.  At  the  beginning  of  the  coverage  diagram  application,  a  check  would  be  made  for  the  existence 
of  a  previously  created  APM  CSCI  output  file  appropriate  for  the  EM  system,  environmental,  and 
terrain  conditions.  If  such  a  file  exists,  the  propagation  loss  values  would  be  read  from  the  file  and 
used  to  create  the  coverage  diagram.  If  the  file  does  not  exist,  the  APM  CSCI  would  be  executed  to 
create  one.  As  the  APM  CSCI  is  executing,  its  output  could  be  routed  simultaneously  to  a  graphics 
display  device  and  a  file.  This  file  could  then  be  used  in  the  loss  diagram  application  should  the  op¬ 
erator  also  choose  it.  Two  distinct  applications,  therefore,  are  achieved  with  only  one  execution  of 
the  APM  CSCI.  Additionally,  should  the  operator  desire  an  individual  coverage  diagram  for  each  of 
multiple  targets,  or  a  single  coverage  diagram  illustrating  radar  detection  of  a  low-flying  missile 
superimposed  upon  a  coverage  diagram  illustrating  his  own  radar’s  vulnerability  as  defined  by  the 
missile’s  ESM  receiver,  only  a  single  execution  of  the  APM  CSCI  would  be  required,  thereby  saving 
valuable  computer  resources. 

3.10.2  Programming  Language  And  Source  Implementation 

3.10.2.1  Programming  Language.  The  ANSI  Fortran  90  program  language  standard  must  be  used 
in  the  development  of  the  APM  CSCI  (reference  h).  This  standard  consists  of  the  specifications  of 
the  language  Fortran.  With  certain  limitations  the  syntax  and  semantics  of  the  old  International  Stan¬ 
dard  commonly  known  as  “FORTRAN  77”  are  contained  entirely  within  this  new  International 
Standard.  Therefore,  any  standard-conforming  FORTRAN  77  program  is  standard  conforming  under 
the  Fortran  90  Standard.  Note  that  the  name  of  this  language,  Fortran,  differs  from  that  in 
FORTRAN  77  in  that  only  the  first  letter  is  capitalized.  The  Overview  section  of  the  International 
Standard  describes  the  major  additions  to  FORTRAN  77  in  this  International  Standard.  Section  1.3 
of  the  International  Standard  specifies  the  bounds  of  the  Fortran  language  by  identifying  both  those 
items  included  and  those  items  excluded.  Section  1.4.1  describes  the  FORTRAN  77  compatibility  of 
the  International  Standard  with  emphasis  on  four  FORTRAN  77  features  having  different  interpola¬ 
tions  in  the  new  International  Standard.  The  International  Standard  provides  facilities  that  encourage 
the  design  and  the  use  of  modular  and  reusable  software. 

Section  8.2  of  the  International  Standard  describes  nine  obsolescent  features  of  FORTRAN  77  that 
are  redundant  and  for  which  better  methods  are  available  in  FORTRAN  77  itself.  These  nine  obso¬ 
lescent  features  should  not  be  used.  These  obsolescent  features  are: 

1.  Arithmetic  IF — use  the  IF  statement. 

2.  Real  and  double  precision  DO  control  variables  and  DO  loop  control  expressions — use  inte¬ 
ger. 

3.  Shared  DO  termination  and  termination  on  a  statement  other  than  END  DO  or 
CONTINUE — use  an  END  DO  or  a  CONTINUE  statement  for  each  DO  statement. 

4.  Branching  to  an  END  IF  statement  from  outside  its  IF  block — branch  to  the  statement  fol¬ 
lowing  the  END  IF. 
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5.  Alternate  return. 

6.  PAUSE  statement. 

7.  ASSIGN  and  assigned  GO  TO  statements. 

8.  Assigned  FORMAT  specifiers. 

9.  cH  (nH)  edit  descriptor. 

Remedies  for  the  last  five  obsolescent  features  are  described  in  section  8.2  of  the  International 
standard. 

3.10.2.2  Source  Implementation.  Reference  (f)  by  the  Naval  Oceanographic  Office  establishes  a 
uniform  standard  for  all  software  submitted  by  all  contributors  to  them.  It  is  recommended  that  the 
coding  requirements  set  forth  in  Section  4  of  that  document  be  followed.  Among  these  recommen¬ 
dations  are: 

1.  Special  non-ANSI  features  shall  be  avoided.  Non- ANSI  practices  that  are  necessary  must  be 
documented  in  the  code  itself. 

2.  Maximum  use  should  be  made  of  existing  commercially  available  FORTRAN  callable  li¬ 
braries. 

3.  Programs  shall  be  designed  and  coded  using  only  five  basic  control  structures  -  sequence  of 
operations  (assignment,  add, ...),  IF  THEN  ELSE,  DO  WHILE,  DO  UNTIL,  and  CASE. 

4.  Procedures  or  routines  that  make  up  a  module  shall  not  exceed  an  average  of  100  executable 
statements  per  procedure  or  routine  and  shall  not  exceed  a  maximum  of  200  executable 
statements  in  any  procedure  or  routine. 

5.  Branching  statements  (GO  TOs)  shall  only  pass  control  to  a  statement  that  is  in  the  same 
procedure  or  routine.  Each  GO  TO  must  pass  control  only  forward  of  its  point  of  occurrence. 

6.  Naming  conventions  shall  be  uniform  throughout  the  software.  Program,  subprogram,  mod¬ 
ule,  procedure,  and  data  names  shall  be  uniquely  chosen  to  identify  the  applicable  function 
performed.  The  naming  convention  for  COMMON  shall  be  consistent  across  the  entire  pro¬ 
gram. 

7.  Constants  shall  be  defined  not  calculated  (e.g.,  do  no  use  HALF  =  1/2,  use  HALF  =  0.5 ) 

8.  Mixed-mode  numerical  operations  should  be  avoided  whenever  possible.  When  determined 
to  be  necessary,  the  use  shall  be  explicit  (FLOAT,  FIX,  or  in  assignment  statement)  and  com¬ 
pletely  described  in  comments. 

9.  Each  component  of  the  software  shall  have  a  prologue  containing  the  name  of  the  program, 
subprogram,  or  function  and  any  version  number;  purpose;  inputs;  outputs;  list  of  routines 
that  call  this  routine;  complete  list  of  routines  called  including  intrinsic  functions  such  as 
ABS  and  FLOAT,  glossary;  and  method. 

10.  To  facilitate  program  comprehension,  comment  statements  shall  be  used  throughout  the 
program  code. 
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11.  The  use  of  the  EQUIVALENCE  statement  shall  be  restricted  to  those  where  it  either  im 
proves  the  readability  of  the  code  or  the  efficiency  of  the  program.  If  the 
EQUIVALENCE  statement  is  used,  it  must  be  fully  documented  in  the  prologue  and 
inline  comment  statements. 

12.  No  machine-dependent  techniques  are  allowed,  unless  there  is  no  other  way  of  perform 
ing  the  task. 

13.  Initialize  every  variable  before  use. 

14.  Do  not  depend  on  the  values  of  “local”  variables  computed  on  a  previous  call  to  a  routine. 

15.  Program  structural  indentation  shall  be  used  to  improve  readability  and  clarity. 

3.11  PERSONNEL-RELATED  REQUIREMENTS 

Not  applicable. 

3.12  TRAINING  RELATED  REQUIREMENTS 

The  employing  target  software  personnel  implementing  this  CSCI  into  the  TESS-NC  CSCI  will 
require  training  to  become  familiar  with  APM.  This  requirement  should  be  met  by  this  document  and 
the  companion  Software  Design  Description  (SDD)  and  Software  Test  Description  (STD)  docu¬ 
ments. 

3.13  OTHER  REQUIREMENTS 

None. 

3.14  PRECEDENCE  AND  CRITICALITY  OF  REQUIREMENTS 

The  requirements  presented  in  Sections  3.1  through  3.5  and  Sections  3.8  through  3.10  have  prece¬ 
dence  over  Sections  3.6,  3.7,  3.1 1,  3.12,  and  3.13  and  should  be  given  equal  weight. 

4.  QUALIFICATION  PROVISIONS 


N/A 


5.  REQUIREMENTS  TRACEABILITY 

5.1  SYSTEM  TRACEABILITY 

This  section  provides  traceability  of  requirements  between  the  APM  CSCI  and  the  TESS-NC 
CSCI. 

1.  The  APM  CSCI  environmental  data  requirements  should  be  obtained  from  the  Tactical 
Environmental  Data  System  database  (TEDS)  within  the  TESS-NC  CSCI.  The  APM 
CSCI  terrain  data  element  requirements  should  be  obtained  from  the  Digital  Terrain  Ele¬ 
vation  Database  (DTED)  within  the  TESS-NC  CSCI.  The  radar/communication  system 
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data  element  requirements  should  be  obtained  from  the  EM  system  database  within  the 
TESS-NC  CSCI. 

2.  The  TESS-NC  CSCI  requirement  of  propagation  loss  vs.  range  and  height  should  be  ob¬ 
tained  from  the  APM  CSCI. 

5.2  DOCUMENTATION  TRACEABILITY 

This  section  provides  the  following  types  of  traceability  between  the  Software  Requirements 
Specification  (SRS),  the  Software  Design  Description  (SDD),  and  the  Software  Test  Description 
(STD): 

1 .  Traceability  between  levels  of  requirements; 

2.  Traceability  between  the  software  requirements  and  software  design; 

3.  Traceability  between  the  software  requirements  and  qualification  test  information  ob¬ 
tained  from  the  software  testing. 

This  traceability  of  the  Advanced  Propagation  Model  is  presented  in  two  tables.  The  first  table, 
table  7  given  here,  presents  the  traceability  between  levels  of  SRS  requirements.  The  second  table 
(table  101  in  the  Software  Design  Document)  presents  the  traceability  between  the  software  re¬ 
quirements  and  software  design. 
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Table  7.  Requirements  Traceability  Matrix  for  the  SRS. 


Software  Requirements  Specification 

Software  Requirements  Specification 

SRS  Requirement  Name 

SRS 

Paragraph 

number 

SRS  Requirement  Name 

SRS 

Paragraph 

Number 

CSCI  Capability  Requirements 

3.1 

Advance  Propagation  Initialization 
(APMINIT)  CSC 

3.1.1 

Advance  Propagation  Initializa¬ 
tion  (APMINIT)  CSC 

3.1.1 

Allocate  Arrays  APM 
(ALLARRAY_APM)  SU 

3.1. 1.1 

Advance  Propagation  Initializa¬ 
tion  (APMINIT)  CSC 

3.1.1 

Allocate  Array  PE  (ALLARRAY  PE) 
SU 

3.1 .1.2 

Advance  Propagation  Initializa¬ 
tion  (APMINIT)  CSC 

3.1.1 

Allocate  Array  XO 
(ALLARRAY_XO)  SU 

3.1. 1.3 

Advance  Propagation  Initializa¬ 
tion  (APMINIT)  CSC 

3.1.1 

Dielectric  Initialization  (DIEINIT)  SU 

3.1. 1.5 

Advance  Propagation  Initializa¬ 
tion  (APMINIT)  CSC 

3.1.1 

Fast-Fourier  Transform  (FFT)  SU 

3.1. 1.6 

Fast-Fourier  Transform  (FFT)  SU 

3.1.1 .6 

Sine  Fast-Fourier  Transform 
(SINFFT)  SU 

3.1.1.18 

Advance  Propagation  Initializa¬ 
tion  (APMINIT)  CSC 

3.1.1 

Fill  Height  Arrays  (FILLHT)  SU 

3.1. 1.8 

Advance  Propagation  Initializa¬ 
tion  (APMINIT)  CSC 

3.1.1 

Gaseous  Absorption  (GASABS)  SU 

3.1 .1.9 

Advance  Propagation  Initializa¬ 
tion  (APMINIT)  CSC 

3.1.1 

Get  Alpha  Impedance  (GETALN) 

SU 

3.1.1.10 

Advance  Propagation  Initializa¬ 
tion  (APMINIT)  CSC 

3.1.1 

Get  Mode  (GETMODE)  SU 

3.1.1.11 

Advance  Propagation  Initializa¬ 
tion  (APMINIT)  CSC 

3.1.1 

Get  Maximum  Angle  (GETTHMAX) 
SU 

3.1.1.12 

Get  Maximum  Angle 
(GETTHMAX)  SU 

3.1.1.12 

FFT  Parameters  (FFTPAR)  SU 

3.1. 1.7 

Advance  Propagation  Initializa¬ 
tion  (APMINIT)  CSC 

3.1.1 

Interpolate  Profile  (INTPROF)  SU 

3.1.1.13 

Advance  Propagation  Initializa¬ 
tion  (APMINIT)  CSC 

3.1.1 

Free-Space  Propagator  Phase 

Term  (PHASE1)  SU 

3.1.1.14 
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Table  7.  Requirements  T raceability  Matrix  for  the  SRS.  (Continued) 


Software  Requirements  Specification 

Software  Requirements  Specification 

SRS  Requirement  Name 

SRS 

Paragraph 

number 

SRS  Requirement  Name 

SRS 

Paragraph 

Number 

Advance  Propagation  Initializa¬ 
tion  (APMINIT)  CSC 

3.1.1 

Environmental  Propagator  Phase 
Term  (PHASE2)  SU 

3.1.1.15 

Advance  Propagation  Initializa¬ 
tion  (APMINIT)  CSC 

3.1.1 

Refractivity  Initialization  (REFINIT) 

SU 

3.1.1.17 

Refractivity  Initialization 
(REFINIT)  SU 

3.1.1.17 

Profile  Reference  (PROFREF)  SU 

3.1.1.16 

Refractivity  Initialization 
(REFINIT)  SU 

3.1.1.17 

Remove  Duplicate  Refractivity  Lev¬ 
els  (REMDUP)  SU 

3.1.2.11 

Advance  Propagation  Initializa¬ 
tion  (APMINIT)  CSC 

3.1.1 

Terrain  Initialization  (TERINIT)  SU 

3.1.1.19 

Advance  Propagation  Initializa¬ 
tion  (APMINIT)  CSC 

3.1.1 

Troposcatter  Initialization 
(TROPOINIT)  SU 

3.1.1.21 

Troposcatter  Initialization 
(TROPOINIT)  SU 

3.1.1.21 

Antenna  Pattern  (ANTPAT)  SU 

3.1. 1.4 

Advance  Propagation  Initializa¬ 
tion  (APMINIT)  CSC 

3.1.1 

Starter  Field  Initialization  (XYINIT) 

SU 

3.1.1.22 

CSCI  Capability  Requirements 

3.1 

Advance  Propagation  Model  Step 
(APMSTEP)  CSC 

3.1.2 

Advance  Propagation  Model 

Step  (APMSTEP)  CSC 

3.1.2 

Flat  Earth  Model  (FEM)  SU 

3.1. 2.3 

Flat  Earth  Model  (FEM)  SU 

3. 1.2.3 

Antenna  Pattern  (ANTPAT)  SU 

3.1. 1.4 

Flat  Earth  Model  (FEM)  SU 

3.1 .2.3 

Get  Reflection  Coefficient 
(GETREFCOEF)  SU 

3.1 .2.7 

Advance  Propagation  Model 

Step  (APMSTEP)  CSC 

3.1.2 

Parabolic  Equation  Step  (PESTEP) 
SU 

3.1 .2.8 

Parabolic  Equation  Step 
(PESTEP)  SU 

3.1. 2.8 

Calculate  Propagation  Loss 
(CALCLOS)  SU 

3.1 .2.1 

Calculate  Propagation  Loss 
(CALCLOS)  SU 

3.1. 2.1 

Get  Propagation  Factor  (GETPFAC) 
SU 

3.1 .2.6 

Calculate  Propagation  Loss 
(CALCLOS)  SU 

3.1. 2.1 

Troposcatter  (TROPO)  SU 

3.1.2.17 
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Table  7.  Requirements  Traceability  Matrix  forthe  SRS.  (Continued) 


Software  Requirements  Specification 

Software  Requirements  Specification 

SRS  Requirement  Name 

SRS 

Paragraph 

number 

SRS  Requirement  Name 

SRS 

Paragraph 

Number 

Troposcatter  (TROPO)  SU 

3.1.2.17 

Antenna  Pattern  (ANTPAT)  SU 

3.1.1 .4 

Parabolic  Equation  Step 
(PESTEP)  SU 

3.1. 2.8 

DOSHIFT  SU 

3.1 .2.2 

Parabolic  Equation  Step 
(PESTEP)  SU 

3.1. 2.8 

Free  Space  Range  Step  (FRSTP) 

SU 

3.1. 2.4 

Free  Space  Range  Step 
(FRSTP)  CSC 

3. 1.2.4 

Fast-Fourier  Transform  (FFT)  SU 

3.1.1 .6 

Fast-Fourier  Transform  (FFT)  SU 

3.1. 1.6 

Sine  Fast-Fourier  Transform 
(SINFFT)  SU 

3.1.1.18 

Parabolic  Equation  Step 
(PESTEP)  SU 

3. 1.2.8 

FZLIM  SU 

3.1. 2.5 

FZLIM  SU 

3.1. 2.5 

Get  Propagation  Factor  (GETPFAC) 
SU 

3.1. 2.6 

FZLIM  SU 

3.1. 2.5 

Save  Profile  (SAVEPRO)  SU 

3.1.2.15 

FZLIM  SU 

3.1. 2.5 

Spectral  Estimation  (SPECEST)  SU 

3.1.2.16 

Spectral  Estimation  (SPECEST) 
SU 

3.1.2.16 

Sine  Fast-Fourier  Transform 
(SINFFT)  SU 

3.1.1.18 

Parabolic  Equation  Step 
(PESTEP)  SU 

3.1. 2.8 

Get  Alpha  Impedance  (GETALN) 

SU 

3.1.1.10 

Parabolic  Equation  Step 
(PESTEP)  SU 

3.1. 2.8 

Refractivity  Interpolation 
(REFINTER)  SU 

3.1.2.10 

Refractivity  Interpolation 
(REFINTER)  SU 

3.1.2.10 

Interpolate  Profile  (INTPROF)  SU 

3.1.1.13 

Refractivity  Interpolation 
(REFINTER)  SU 

3.1.2.10 

Profile  Reference  (PROFREF)  SU 

3.1.1.16 

Refractivity  Interpolation 
(REFINTER)  SU 

3.1.2.10 

Remove  Duplicate  Refractivity  Lev¬ 
els  (REMDUP)  SU 

3.1.2.11 

Parabolic  Equation  Step 
(PESTEP)  SU 

3. 1.2.8 

Environmental  Propagator  Phase 
Term  (PHASE2)  SU 

3.1.1.15 

Advance  Propagation  Model 

Step  (APMSTEP)  CSC 

3.1.2 

Ray  Optics  Model  (ROM)  SU 

3.1.2.14 
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Table  7.  Requirements  Traceability  Matrix  for  the  SRS.  (Continued) 


Software  Requirements  Specification 

Software  Requirements  Specification 

SRS  Requirement  Name 

SRS 

Paragraph 

number 

SRS  Requirement  Name 

SRS 

Paragraph 

Number 

Ray  Optics  Model  (ROM)  SU 

3.1.2.14 

Ray  Optics  Calculation  (ROCALC) 

SU 

3.1.2.12 

Ray  Optics  Calculation 
(ROCALC)  SU 

3.1.2.12 

Antenna  Pattern  (ANTPAT)  SU 

3.1.1 .4 

Ray  Optics  Calculation 
(ROCALC)  SU 

3.1.2.12 

1 

Get  Reflection  Coefficient 
(GETREFCOEF)  SU 

3.1. 2.7 

Ray  Optics  Calculation 
(ROCALC)  SU 

3.1.2.12 

Ray  Trace  (RAYTRACE)  SU 

3.1 .2.9 

Ray  Optics  Model  (ROM)  SU 

3.1.2.14 

Ray  Optics  Loss  (ROLOSS)  SU 

3.1.2.13 

CSCI  Capability  Requirements 

3.1 

Extended  Optics  Initialization 
(XOINIT)  CSC 

3.1.3 

Extended  Optics  Initialization 
(XOINIT)  CSC 

3.1.3 

Smooth  (SMOOTH)  SU 

3.1. 3.1 

CSCI  Capability  Requirements 

3.1 

Extended  Optics  Step  (XOSTEP) 
CSC 

3.1.4 

Extended  Optics  Step  (XOSTEP) 
CSC 

3.1.4 

Extended  Optics  (EXTO)  SU 

3.1 .4.1 

Extended  Optics  (EXTO)  SU 

3.1. 4.1 

Troposcatter  (TROPO)  SU 

3.1.2.17 

Troposcatter  (TROPO)  SU 

3.1.2.17 

Antenna  Pattern  (ANTPAT)  SU 

3.1 .1.4 

Extended  Optics  Step  (XOSTEP) 
CSC 

3.1.4 

Flat  Earth  Model  (FEM)  SU 

3.1 .2.3 

Flat  Earth  Model  (FEM)  SU 

3.1. 2.3 

Antenna  Pattern  (ANTPAT)  SU 

3.1.1 .4 

Flat  Earth  Model  (FEM)  SU 

3.1. 2.3 

Get  Reflection  Coefficient 
(GETREFCOEF)  SU 

3.1 .2.7 

Extended  Optics  Step  (XOSTEP) 
CSC 

3.1.4 

Ray  Optics  Model  (ROM)  SU 

3.1.2.14 
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Table  7.  Requirements  Traceability  Matrix  for  the  SRS.  (Continued) 


Software  Requirements  Specification 

Software  Requirements  Specification 

SRS  Requirement  Name 

SRS 

Paragraph 

number 

SRS  Requirement  Name 

SRS 

Paragraph 

Number 

Ray  Optics  Model  (ROM)  SU 

3.1.2.14 

Ray  Optics  Calculation 
(ROCALC)  SU 

3.1.2.12 

Ray  Optics  Calculation  (ROCALC)  SU 

3.1.2.12 

Antenna  Pattern  (ANTPAT)  SU 

3.1. 1.4 

Ray  Optics  Calculation  (ROCALC)  SU 

3.1.2.12 

Get  Reflection  Coefficient 
(GETREFCOEF)  SU 

3.1 .2.7 

Ray  Optics  Calculation  (ROCALC)  SU 

3.1.2.12 

Ray  Trace  (RAYTRACE)  SU 

3.1 .2.9 

Ray  Optics  Model  (ROM)  SU 

3.1.2.14 

Ray  Optics  Loss  (ROLOSS) 

SU 

3.1.2.13 

CSCI  Capability  Requirements 

3.1 

Advanced  Propagation  Model 
Clean  (APMCLEAN)  CSC 

3.1.5 

CSCI  Capability  Requirements 

3.1 

CSCI  External  Interface  Re¬ 
quirements 

3.2 

CSCI  Capability  Requirements 

3.1 

CSCI  Internal  Interface  Re¬ 
quirements 

3.3 

CSCI  Capability  Requirements 

3.1 

CSCI  Internal  Data  Require¬ 
ments 

3.4 

CSCI  Capability  Requirements 

3.1 

Adaptation  Requirements 

3.5 

CSCI  Capability  Requirements 

3.1 

Computer  Resource  Require¬ 
ments 

3.8 

CSCI  Capability  Requirements 

3.1 

Software  Quality  Factors 

3.9 

CSCI  Capability  Requirements 

3.1 

Design  And  Implementation 
Constraints 

3.10 

Design  And  Implementation 

Constraints 

3.10 

Implementation  and  Applica¬ 
tion  Considerations 

3.10.1 

Design  And  Implementation 

Constraints 

3.10 

Programming  Language  And 
Source  Code  Implementation 

3.10.2 
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Table  7.  Requirements  Traceability  Matrix  for  the  SRS.  (Continued) 


Software  Requirements  Specification 

Software  Requirements  Specification 

SRS  Requirement  Name 

SRS 

Paragraph 

number 

SRS  Requirement  Name 

SRS 

Paragraph 

Number 

Programming  Language  And 
Source  Code  Implementation 

3.10.2 

Programming  Language 

3.10.2.1 

Programming  Language  And 
Source  Code  Implementation 

3.10.2 

Source  Implementation 

3.10.2.2 

CSCI  Capability  Requirements 

3.1 

Personnel-Related  Requirements 

3.11 

CSCI  Capability  Requirements 

3.1 

Training  Related  Requirements 

3.12 

CSCI  Capability  Requirements 

3.1 

Other  Requirements 

3.13 

CSCI  Capability  Requirements 

3.1 

Precedence  and  Criticality  of  Re¬ 
quirements 

3.14 

6.  NOTES 

Table  8  is  a  glossary  of  acronyms  and  abbreviations  used  within  this  document.  Table  9  is  a  glos¬ 
sary  of  Fortran  terms  used  within  this  document. 


Table  8.  Acronyms  and  abbreviations. 


Term 

Definition 

ANSI 

American  National  Standards  Institute 

APM 

. 

Advanced  Propagation  Model 

cB 

centibel 

CSC 

Computer  Software  Component 

CSCI 

Computer  Software  Configuration  Item 

dB 

decibel 

EM 

Electromagnetic 

FFT 

Fast-Fou  rier  T  ransform 

Fortran 

Formula  Translation 

FORTRAN 

Formula  T  ranslation 

km 

kilometers 
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Table  8.  Acronyms  and  abbreviations.  (Continued) 


Term 

Definition 

m 

Meters 

M 

Modified  refractivity  units 

MHz 

Megahertz 

N/A 

Not  applicable 

PE 

Parabolic  Equation 

p-space 

Phase  space 

rad 

Radians 

SDD 

Software  Design  Description 

SRS 

Software  Requirements  Specification 

STD 

Software  Test  Description 

SU 

Software  Unit 

TESS-NC 

Tactical  Environmental  Support  System 

Next  Century 

z-space 

Distance  space 

Table  9.  Fortran  terms. 


Term 

Action  or  Definitions 

ABS 

Absolute  value  function 

Arithmetic  IF 

Transfers  control  to  one  of  three  statement  labels,  depending  on  the 
value  of  expression 

ASSIGN 

Assigns  the  value  of  a  format  or  statement  label  to  an  integer 
variable 

CASE 

Marks  the  beginning  of  a  block  of  statements  executed  if  an  item 
in  a  list  of  expressions  matches  the  test  expressions 

COMMON 

Allows  two  or  more  program  units  to  directly  share  variables 
without  having  to  pass  them  as  arguments 

CONTINUE 

Does  not  have  any  effect 

DO 

Repeatedly  executes  the  statements  following  the  DO  statement 
through  the  statement  which  marks  the  end  of  the  loop 
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Table  9.  Fortran  terms.  (Continued) 


Term 

Action  or  Definitions 

DO  WHILE 

Executes  a  block  of  statements  repeatedly  while  a  logical 
condition  remains  true 

END  DO 

Terminates  a  DO  or  DO  WHILE  loop 

END  IF 

Terminates  a  block  of  IF  statements 

EQUIVALENCE 

Causes  two  or  more  variables  or  arrays  to  occupy  the  same 
memory  location 

FIX 

Data  type  conversion  function 

FLOAT 

Data  type  conversion  function 

FORMAT 

Sets  the  format  in  which  data  is  written  to  or  read  from  a  file 

GOTO 

Transfers  execution  to  the  statement  label  assigned  to  variable 

IF 

If  expression  is  true,  statement  is  executed;  if  expression  is  false, 
program  execution  continues  weith  the  next  executable  statement 

IF  THEN  ELSE 

If  expression  is  true,  statements  in  the  IF  block  are  executed;  if 
expression  is  false,  control  is  transferred  to  the  next  ELSE, 

ELSE  IF,  or  END  IF  statement  at  the  same  IF  level 

PAUSE 

Temporarily  suspends  program  execution  and  allows  you  to 
execute  operating  system  commands  during  the  suspension 
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APPENDIX  A 


A.1  DEFINITIONS  OF  QUALITY  FACTOR  CRITERIA 

The  criteria  forjudging  the  quality  factors  of  Section  3.9  have  the  following  definitions: 

1 .  Accuracy.  The  precision  of  computations  and  control; 

2.  Anomaly  management.  The  degree  to  which  the  program  detects  failure  in  order  to 
maintain  consistency; 

3.  Application  independence.  The  degree  to  which  the  program  is  independent  of  nonstan¬ 
dard  programming  language  features,  operating  system  characteristics,  and  other  envi¬ 
ronmental  constraints; 

4.  Auditability.  The  ease  with  which  conformance  to  standards  can  be  checked; 

5.  Completeness.  The  degree  to  which  full  implementation  of  required  function  has  been 
achieved; 

6.  Consistency.  The  use  of  uniform  design  and  documentation  techniques  throughout  the 
software  development  project; 

7.  Document  accessibility.  The  availability  of  documents  describing  the  program  compo¬ 
nents. 

8.  Functional  scope.  The  generality  of  the  feature  set  and  capabilities  of  the  program; 

9.  Generality.  The  breadth  of  potential  application  of  program  components; 

10.  Hardware  independence.  The  degree  to  which  the  software  is  decoupled  from  the  hard¬ 
ware  on  which  it  operates; 

1 1.  Modularity.  The  functional  independence  of  program  components; 

12.  Self-  descriptiveness.  The  degree  to  which  the  source  code  provides  meaningful  docu¬ 
mentation; 

13.  Simplicity.  The  degree  to  which  a  program  can  be  understood  without  difficulty; 

14.  System  clarity.  The  ease  for  which  the  feature  set  and  capabilities  of  the  system  can  be 
determined. 

15.  Traceability.  The  ability  to  trace  a  design  representation  or  actual  program  component 
back  to  requirements. 

A.2  SOFTWARE  QUALITY  METRICS 

A.2.1  Completeness  Criteria 

The  criteria  completeness  can  be  determined  from  the  metric: 
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1.  no  ambiguous  references  (input,  function,  output); 

2.  all  data  references  defined; 

3.  all  referenced  functions  defined; 

4.  all  defined  functions  used; 

5.  all  conditions  and  processing  defined  for  each  decision  point; 

6.  all  defined  and  referenced  calling  sequences  parameters  agree; 

7.  all  problem  reports  resolved; 

8.  design  agrees  with  requirements; 

9.  code  agrees  with  design; 

10.  (score  0  for  any  untrue  statement;  1  otherwise);  and 

1 1 .  metric  value  =  SUM  (scores)/9. 

A.2.2  Consistency  Criteria 

The  criteria  consistency  can  be  determined  from  the  metric  :  number  of  modules  violating  the  de¬ 
sign  standard  divided  by  the  number  of  modules. 

A.2.3  Traceability  Criteria 

The  criteria  traceability  can  be  determined  from  the  metric:  number  of  itemized  requirements 
traced  divided  by  the  total  number  of  requirements. 
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1.  SCOPE 


1.1  IDENTIFICATION 

The  Advanced  Propagation  Model  (APM)  Version  1.0  computer  software  configuration  item 
(CSCI)  calculates  range-dependent  electromagnetic  (EM)  system  propagation  loss  within  a  hetero¬ 
geneous  atmospheric  medium  over  variable  terrain,  where  the  radio-frequency  index  of  refraction  is 
allowed  to  vary  both  vertically  and  horizontally,  also  accounting  for  terrain  effects  along  the  propa¬ 
gation  path. 

1.2  SYSTEM  OVERVIEW 

Numerous  Tactical  Environmental  Support  System-Next  Century  (TESS-NC)  applications  re¬ 
quire  EM-system  propagation  loss  values.  The  APM  model  described  in  this  document  may  be  ap¬ 
plied  to  two  such  TESS-NC  applications,  one  that  displays  propagation  loss  on  a  range  versus  height 
scale  (commonly  referred  to  as  a  coverage  diagram)  and  one  that  displays  propagation  loss  on  a 
propagation  loss  versus  range/height  scale  (commonly  referred  to  as  a  loss  diagram). 

1.3  DOCUMENT  OVERVIEW 

This  document  describes  APM  CSCI  design  and  provides  an  input  software  requirement  overview, 
a  CSCI  design  architecture  overview,  and  a  detailed  design  description  of  each  CSCI  component. 
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(h)  Kuttler,  J.  R.  and  G.  D.  Dockery.  1991.  “Theoretical  Description  of  the  Parabolic  Approxima¬ 
tion/Fourier  Split-Step  Method  of  Representing  Electromagnetic  Propagation  in  the  Tropo¬ 
sphere,”  Radio  Sci.,  vol.  26,  pp.  381-393. 
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3.  CSCI-WIDE  DESIGN  DECISIONS 

The  required  APM  CSCI  propagation  model  is  a  range-dependent,  true  hybrid  model  that  uses  the 
complimentary  strengths  of  both  ray  optics  (RO)  and  parabolic  equation  (PE)  techniques  to  calculate 
propagation  loss  both  in  range  and  altitude. 

The  atmospheric  volume  is  divided  into  regions  that  lend  themselves  to  the  application  of  the 
various  propagation  loss  calculation  methods.  Figure  1  illustrates  these  regions. 

For  antenna  elevation  angles  above  5  degrees  or  for  ranges  less  than  approximately  2.5  km,  a  flat 
earth  (FE),  ray-optics  model  is  used.  In  this  region,  only  receiver  height  is  corrected  for  average  re¬ 
fraction  and  earth  curvature. 

Within  the  RO  region  (as  defined  by  a  limiting  ray),  propagation  loss  is  calculated  from  the  mu¬ 
tual  interference  between  the  direct-path  and  surface-reflected  ray  components  using  the  refractivity 
profile  at  zero  range.  Full  account  is  given  to  focusing  or  de-focusing  along  both  direct  and  reflected 
ray  paths  and  to  the  integrated  optical  path  length  difference  between  the  two  ray  paths,  to  give  pre¬ 
cise  phase  difference,  and,  hence,  accurate  coherent  sums  for  the  computation  of  propagation  loss. 


*  Now  Space  and  Naval  Warfare  (SPAWAR)  Systems  Center,  San  Diego  (SSC  San  Diego) 
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For  the  low-altitude  region  beyond  the  RO  region,  a  PE  approximation  to  the  Helmholtz  full-wave 
equation  is  employed.  The  PE  model  allows  for  range-dependent  refractivity  profiles  and  variable 
terrain  along  the  propagation  path  and  uses  a  split-step  Fourier  method  for  the  PE  solution.  The  PE 
model  is  run  in  the  minimum  region  required  to  contain  all  terrain  and  trapping  layer  heights. 


Figure  1 .  APM  calculation  regions. 

For  the  area  beyond  the  RO  region,  but  above  the  PE  region,  an  extended  optics  region  (XO)  is 
defined.  Within  the  XO  region,  ray-optics  methods  that  are  initialized  by  the  PE  solution  from  below 
are  used. 

APM  will  run  in  three  “execution”  modes,  depending  on  environmental  inputs.  APM  will  use 
the  FE,  RO,  XO,  and  PE  models  if  the  terrain  profile  is  flat  for  the  first  2.5  km  and  if  the  antenna 
height  is  less  than  or  equal  to  100  m.  It  will  use  only  the  XO  and  PE  models  if  the  terrain  profile 
is  not  flat  for  the  first  2.5  km  and  if  the  antenna  height  is  less  than  or  equal  to  100  m.  APM  will 
use  only  the  PE  model  if  the  antenna  height  is  greater  than  100  m,  regardless  of  terrain  profile. 

The  APM  CSCI  allows  for  horizontal  and  vertical  antenna  polarization,  finite  conductivity  based 
on  user-specified  ground  composition  and  dielectric  parameters,  and  the  complete  range  of  EM  sys¬ 
tem  parameters  and  most  antenna  patterns  required  by  TESS-NC.  APM  also  allows  for  gaseous  ab¬ 
sorption  effects  in  all  submodels  and  computes  troposcatter  losses  within  the  diffraction  region  and 
beyond. 

The  APM  CSCI  is  divided  into  five  main  computer  software  components  (CSCs)  and  40  addi¬ 
tional  software  units  (SUs).  The  first  CSC,  the  APMINIT  CSC,  interfaces  with  various  SUs  for  the 
complete  initialization  of  the  APM  CSCI.  The  second  CSC,  the  APMSTEP  CSC,  advances  the  entire 
APM  CSCI  algorithm  one  output  range  step,  referencing  various  SUs  to  calculate  the  propagation 
loss  at  the  current  output  range.  The  XOINIT  CSC  initializes  the  range,  height,  and  angle  arrays  in 
preparation  for  the  XOSTEP  CSC.  The  fourth  CSC,  the  XOSTEP  CSC,  advances  the  APM  CSCI 
algorithm  one  output  step  from  the  top  of  the  PE  calculation  region  to  the  maximum  output  height 
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specified,  referencing  various  SUs  to  calculate  the  propagation  output  range.  The  last  CSC,  the 
APMCLEAN  CSC,  deallocates  all  dynamically  dimensioned  arrays  in  one  complete  run  of  APM 
calculations. 


4.  CSCI  ARCHITECTURE  DESIGN 


4.1  CSCI  COMPONENTS 

The  APM  CSCI  is  accessed  by  a  subroutine  call  that  provides,  as  global  data  elements,  the  values 
specified  in  tables  1  through  4. 

The  APM  CSCI  is  divided  into  five  CSCs  and  40  SUs.  The  five  CSCs  are  the  APMINIT  CSC,  the 
APMSTEP  CSC,  the  XOINIT  CSC,  the  XOSTEP  CSC,  and  the  APMCLEAN  CSC.  The  source  code 
for  the  APM  CSCI  is  listed  in  Appendix  A.  The  name  and  purpose  for  each  CSC  and  SU  are  listed 
below. 

The  Advance  Propagation  Initialization  (APMINIT)  CSC  interfaces  with  various  SUs  for  the 
complete  initialization  of  the  APM  CSCI.  The  APMINIT  CSC  component  SUs  include  the  follow¬ 
ing: 

1 .  Allocate  Arrays  APM  (ALLARRAY_APM)  SU.  Allocates  and  initializes  all  dynamically  di¬ 
mensioned  arrays  associated  with  APM  terrain,  refractivity,  troposcatter,  and  general  vari¬ 
able  arrays. 

2.  Allocate  Array  PE  (ALLARRAY.PE)  SU.  Allocates  and  initializes  all  dynamically  dimen¬ 
sioned  arrays  associated  with  PE  calculations. 

3.  Allocate  Array  XO  (ALLARRAY_XO)  SU.  Allocates  and  initializes  all  dynamically  dimen¬ 
sioned  arrays  associated  with  XO  calculations. 

4.  Antenna  Pattern  (ANTPAT)  SU.  Calculates  a  normalized  antenna  gain  (antenna  pattern 
factor)  for  a  specified  antenna  elevation  angle. 

5.  Dielectric  Initialization  (DIEIN1T)  SU.  Determines  the  conductivity  and  relative  permittivity 
as  a  function  of  frequency  in  MHz  based  on  general  ground  composition  types. 

6.  Fast-Fourier  Transform  (FFT)  SU.  Separates  the  real  and  imaginary  components  of  the 
complex  PE  field  into  two  real  arrays  and  then  references  the  SINFFT  SU. 

7.  FFT  Parameters  (FFTPAR)  SU.  Determines  the  required  transform  size  based  on  the  maxi¬ 
mum  PE  propagation  angle  and  the  maximum  height  needed. 

8.  Fill  Height  Arrays  (FILLHT)  SU.  Calculates  the  effective  earth  radius  for  an  initial  launch 
angle  of  5  degrees  and  fills  an  array  with  height  values  at  each  output  range  of  the  limiting 
sub-model,  depending  on  which  mode  is  used. 

9.  Gaseous  Absorption  (GASABS)  SU.  Computes  the  specific  attenuation  based  on  air  tem¬ 
perature  and  absolute  humidity. 

10.  Get  Alpha  Impedance  (GETALN)  SU.  Computes  the  impedance  term  in  the  Leontovich 
boundary  condition,  and  the  complex  index  of  refraction  for  finite  conductivity  and  vertical 
polarization  calculations. 

1 1.  Get  Mode  (GETMODE)  SU.  Determines  what  “execution”  mode  APM  will  run  based  on 
environmental  inputs  for  the  current  application. 


4 


12.  Get  Maximum  Angle  (GETTHMAX)  SU.  Performs  an  iterative  ray  trace  to  determine  the 
minimum  angle  required  (based  on  the  reflected  ray)  in  obtaining  a  PE  solution. 

13.  Interpolate  Profile  (INTPROF)  SU.  Performs  a  linear  interpolation  vertically  with  height  on 
the  refractivity  profile. 

14.  Free  Space  Propagator  Phase  Term  (PHASE1)  SU.  Initializes  the  free  space  propagator 
array  for  subsequent  use  in  the  PESTEP  SU. 

15.  Environmental  Propagator  Phase  Term  (PHASE2)  SU.  Calculates  the  environmental 
phase  term  for  an  interpolated  environment  profile. 

16.  Profile  Reference  (PROFREF)  SU.  Adjusts  the  current  refractivity  profile  so  that  it  is  rela¬ 
tive  to  a  reference  height. 

17.  Refractivity  Initialization  (REFINIT)  SU.  Checks  for  valid  environmental  profile  inputs  and 
initializes  the  refractivity  arrays. 

18.  Sine  Fast  Fourier  Transform  (SINFFT)  SU.  Transforms  each  portion  of  the  PE  solution. 

19.  Terrain  Initialization  (TERINIT)  SU.  Examines  and  initializes  terrain  arrays  for  subsequent 
use  in  PE  calculations. 

20.  Troposcatter  Initialization  (TROPOINIT)  SU.  Initializes  all  variables  and  arrays  needed  for 
subsequent  troposcatter  calculations. 

21.  Starter  Field  Initialization  (XYINIT)  SU.  Calculates  the  complex  PE  solution  at  range  zero. 

The  Advanced  Propagation  Model  Step  (APMSTEP)  CSC  advances  the  entire  APM  CSCI  algo¬ 
rithm  one  output  range  step,  referencing  various  SUs  to  calculate  the  propagation  loss  at  the  current 
output  range.  The  APMSTEP  CSC  component  SUs  include  the  following: 

1 .  Calculate  Propagation  Loss  (CALCLOS)  SU.  Determines  the  propagation  loss  from  the 
complex  PE  field  at  each  output  height  point  at  the  current  output  range. 

2.  DOSHIFT  SU.  Shifts  the  field  by  the  number  of  bins  or  PE  mesh  heights  corresponding  to 
local  ground  height. 

3.  Flat  Earth  Model  (FEM)  SU.  Computes  propagation  loss  at  a  specified  range  based  upon 
flat-earth  approximations. 

4.  Free  Space  Range  Step  (FRSTP)  SU.  Propagates  the  complex  PE  solution  field  in  free 
space  by  one  range  step. 

5.  FZLIM  SU.  Determines  both  the  propagation  factor  (in  dB)  and  the  outgoing  propagation 
angle  at  the  top  of  the  PE  calculation  region. 

6.  Get  Propagation  Factor  (GETPFAC)  SU.  Determines  the  propagation  factor  at  the  speci¬ 
fied  height  in  dB. 

7.  Get  Reflection  Coefficient  (GETREFCOEF)  SU.  Calculates  the  complex  surface  reflection 
coefficient,  along  with  the  magnitude  and  phase  angle. 

8.  Parabolic  Equation  Step  (PESTEP)  SU.  Determines  the  next  output  range  and  begins 
an  iterative  loop  to  advance  the  PE  solution  such  that  for  the  current  PE  range,  a  PE  solution 
is  calculated  from  the  solution  at  the  previous  PE  range.  This  procedure  is  repeated  until  the 
output  range  is  reached. 
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9.  Ray  Trace  (RAYTRACE)  SU.  Traces  a  ray  from  a  starting  height  and  range  with  a  specified 
starting  elevation  angle  to  a  termination  range. 

10.  Refractivity  Interpolation  (REFINTER)  SU.  Interpolates  both  horizontally  and  vertically  on 
the  modified  refractivity  profiles. 

1 1.  Remove  Duplicate  Refractivity  Levels  (REMDUP)  SU.  Removes  any  duplicate  refractivity 
levels  in  the  currently  interpolated  profile. 

12.  Ray  Optics  Calculation  (ROCALC  SU).  Computes  the  RO  components  that  will  be  needed 
in  the  calculation  of  propagation  loss  at  a  specified  range  and  height  within  the  RO  region. 

13.  Ray  Optics  Loss  (ROLOSS)  SU.  Calculates  both  the  propagation  loss  values  at  a  specified 
range  and  height  based  upon  the  components  of  magnitude  for  a  direct-path  and  surface- 
reflected  ray  and  the  total  phase  lag  angle  between  the  two  rays  as  determined  by  the 
ROCALC  SU. 

14.  Ray  Optics  Model  (ROM)  SU.  Provides  a  one-call  routine  for  RO  calculations. 

15.  Save  Profile  (SAVEPRO)  SU.  Stores  the  refractivity  profiles  at  each  PE  range  step  from  the 
top  of  the  PE  region  to  the  maximum  user-specified  height. 

16.  Spectral  Estimation  (SPECEST)  SU.  Determines,  via  spectral  estimation,  the  outward 
propagation  angle  at  the  top  of  the  PE  calculation  region. 

17.  Troposcatter  (TROPO)  SU.  Determines  the  loss  due  to  troposcatter  and  computes  the  ap¬ 
propriate  loss  between  troposcatter  loss  and  propagation  loss  in  the  “transition”  region  using 
a  method  of  “bold  interpolation.” 

The  Extended  Optics  Initialization  (XOINIT)  CSC  initializes  the  range,  height,  and  angle  arrays  in 
preparation  for  the  XOSTEP  CSC.  The  XOINIT  CSC  component  SUs  include: 

Smooth  (SMOOTH)  SU.  Performs  an  n-point  average  smoothing  on  any  array  passed  to  it. 

The  Extended  Optics  Step  (XOSTEP)  CSC  advances  the  APM  CSCI  algorithm  one  output  range 
step  from  the  top  of  the  PE  calculation  region  to  the  maximum  output  height  specified,  referencing 
various  SUs  to  calculate  the  propagation  loss  at  the  current  output  range.  The  XOSTEP  CSC  compo¬ 
nent  SUs  include: 

Extended  Optics  (EXTO)  SU.  Calculates  propagation  loss,  based  on  extended  optics  techniques, 
at  the  current  output  range. 

The  Advanced  Propagation  Model  Clean  (APMCLEAN)  CSC  deallocates  all  dynamically  dimen¬ 
sioned  arrays  used  in  one  complete  run  of  APM  calculations. 

4.2  CONCEPT  OF  EXECUTION 

Figure  2  shows  the  program  flow  of  the  required  APM  CSCI.  Note  that  the  APM  CSCI  is  shown 
within  the  context  of  a  calling  CSCI  application  such  as  one  that  generates  a  coverage  or  loss  dia¬ 
gram.  The  efficient  implementation  of  the  APM  CSCI  will  have  far-reaching  consequences  upon  the 
design  of  an  application  CSCI  beyond  those  mentioned  in  section  7.3.  For  example,  figure  2  shows 
checking  for  the  existence  of  a  previously  created  APM  output  file  prior  to  the  access  of  the  APM 
CSCI.  The  application  CSCI  will  have  to  consider  if  the  atmospheric  or  terrain  environment  has 
changed  since  the  APM  output  file  was  created  or  if  any  new  height  or  range  requirement  is  accom- 
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modated  within  the  existing  APM  CSCI  output  file.  Because  these  and  many  more  considerations  are 
beyond  the  scope  of  this  document,  an  application  CSCI  designer  should  work  closely  with  the  APM 
CSCI  development  agency  in  APM  CSCI  implementation. 


Figure  2.  APM  CSCI  program  flow. 


4.3  INTERFACE  DESIGN 

4.3.1  Interface  Identification  and  Diagrams 

The  APM  CSCI  interface  design  consists  of  one  FORTRAN  MODULE  file  for  the  external  and  in¬ 
ternal  data  interface,  FORTRAN  CALL  statements  for  both  output  data  and  internal  interfacing,  and 
several  FORTRAN  COMMON  blocks  for  the  internal  interface.  The  MODULE  file  is  called 
APM_MOD.  This  MODULE’S  statements  provide  several  constants,  the  COMMON  blocks,  and  the 
dynamically  allocated  array  names.  The  COMMON  block  names  are:  1)  ABSORB,  2)  ERRORFLAG, 
3)  IMPEDANCE,  4)  INPUTVAR,  5)  MISCVAR,  6)  OUTRH,  7)  PATTERN,  8)  PE,  9)  REFPROF, 

10)  REFRACIWITY,  11)  RO,  12)  SPEC,  13)  SYSTEMVAR,  14)  TERRAIN,  15)  TROPOV, 

16)  TRVAR,  and  17)  XO. 

4.3.2  External  Interface 

The  APM  CSCI  is  accessed  through  the  APMINIT  CSC  by  a  subroutine  call  from  the  TESS-NC 
CSCI,  which  should  provide,  as  global  data  elements,  the  values  specified  in  tables  1  through  4. 

The  APM  CSCI  external  data  elements  (i.e.,  data  that  must  be  provided  by  the  calling  TESS-NC 
CSCI  in  the  MODULE  file  prior  to  the  APM  CSCI  execution)  can  be  divided  into  four  classifica¬ 
tions.  The  first  are  external  data  related  to  the  atmospheric  environment,  specified  in  table  1;  the 
second  are  data  related  to  the  EM  system,  specified  in  table  2;  the  third  are  data  related  to  the  im¬ 
plementation  of  the  APM  CSCI  by  the  TESS-NC  CSCI,  specified  in  table  3;  and  the  fourth  are  data 
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calling  CSCI  via  the  FORTRAN  CALL  statements. 


Table  1 .  APM  CSCI  environmental  data  element  requirements. 


Name 

Description 

mum 

Units 

Bounds 

refmsl 

Profile  modified  refractivity 
(dynamically  allocated)  array 
referenced  to  mean  sea  level 

Real 

M-units 

>0.0a 

hmsl 

Profile  height  (dynamically 
allocated)  array 

Real 

meters 

>0.0a 

nP»f 

Number  of  profiles 

Integer 

N/A 

>1 

Ivlp 

Number  of  profile  levels 

Integer 

N/A 

>2 

rngprof 

Dynamically  allocated  array  of 
ranges  to  each  profile 

Real 

meters 

>0.0 

abshim 

Surface  absolute  humidity 

Real 

g/m3 

Oto  50 

‘air 

Surface  air  temperature 

Real 

°C 

-20  to  40 

7a 

Surface  specific  attenuation 

Real 

dB/km 

>0.0 

l extra 

Extrapolation  flag  for  refractivity 
profiles  entered  below  mean  sea 
level 

Integer 

N/A 

0  or  1 

a  Couplets  of  height  and  modified  refractivity  associated  with  that  height  are  referred  to  within 
this  document  as  an  environmental  profile. 


Table  2.  APM  CSCI  External  EM  System  data  element  requirements. 


Name 

Description 

mum 

Units 

Bounds 

Aw 

Antenna  vertical  beam  width 

Real 

degree 

0.5  to  45.0 

A, 

Antenna  elevation  angle 

Real 

degree 

-50.0  to  50.0 

fuHz 

EM  system  frequency 

Real 

MHz 

100.0  to  20,000.0 

Antenna  pattern 

1  =  Omni-directional 

2  =  Gaussian 

3  =  Sine  (X)/X 

4  =  Cosecant-squared 

5  =  Generic  height-finder 

6  =  User-defined  height-finder 

Integer 

N/A 

1  to  6 

■  ipoi 

Antenna  polarization 

0  =  Horizontal 

1  =  Vertical 

Integer 

N/A 

0  or  1 
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Table  2.  APM  CSCI  External  EM  System  data  element  requirements.  (Continued) 


Name 

Description 

mum 

Units 

Bounds 

onrto 

Antenna  height  above  local 
ground  at  range  0.0  m 

Real 

meters 

>  1.0 

hfang 

Dynamically  allocated  user- 
defined  height-finder  power- 
reduction  angle  array 

Real 

degree 

0.0  to  90.0 

hffac 

Dynamically  allocated  user- 
defined  power-reduction  factor 
array 

Real 

N/A 

0.0  to  1.0 

njacs 

Number  of  power-reduction 
angles/factors  for  user-defined 
heiqht-finder  radar 

Integer 

N/A 

1  to  10 

Table  3.  APM  CSCI  external  implementation  constants. 


Name 

Description 

mam 

Units 

Bounds 

nmta 

Number  of  range  output  points  for  a 
particular  application  of  APM 

Integer 

N/A 

1 

nv>ta 

Number  of  height  output  points  for  a 
particular  application  of  APM 

Integer 

N/A 

1 

lerr6 

Logical  flag  to  allow  for  error  -6  to  be 
bypassed 

Logical 

N/A 

‘.true.’  or 
‘.false.’ a 

lerrl2 

Logical  flag  to  allow  for  error  -12  to 
be  bypassed 

Logical 

N/A 

‘.true.’  or 

‘.false.’ a 

l iropo 

Flag  to  include  troposcatter  calcula¬ 
tions  (0  =  no,  1  =  yes) 

Integer 

N/A 

0  or  1 

^ max 

Maximum  range  output  for  a  par¬ 
ticular  application  of  APM 

Real 

meters 

>  5000.0  b 

Minimum  height  output  for  a  particu¬ 
lar  application  of  APM 

Real 

meters 

>0.0C 

Maximum  height  output  for  a  par¬ 
ticular  application  of  APM 

Real 

meters 

>  100.0  b 

a  refer  to  section  7.2  for  a  complete  description. 


b  refer  to  section  7.3  for  a  complete  description. 
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Table  4.  APM  CSCI  external  terrain  data  element  requirements. 


Name 

Description 

Type 

Units 

Bounds 

terx 

Dynamically  allocated  terrain  profile 
range  array 

Real 

meters 

>  0.0  a 

tery 

Dynamically  allocated  terrain  profile 
height  array 

Real 

meters 

>0.0a 

K 

Number  of  terrain  profile  points  for  a 
particular  application  of  APM 

Integer 

N/A 

>2 

Kr 

Number  of  ground  types  for  a  par¬ 
ticular  application  of  APM 

Integer 

N/A 

>0.0a 

igmd 

Array  of  ground  composition  types 
for  a  particular  application  of  APM 

0  =  Sea  water 

1  =  Freshwater 

2  =  Wet  ground 

3  =  Medium  dry  ground 

4  =  Very  dry  ground 

5  =  Ice  at  -1  °C 

6  =  Ice  at  -10°C 

7  =  User  defined 

Integer 

N/A 

0  <  igrndj  <  7  a 

rgrnd 

Dynamically  allocated  array  of 
ranges  for  which  ground  types  are 
applied  for  a  particular  application  of 
APM 

Real 

meters 

>0.0a 

dielec 

Dynamically  allocated  two- 
dimensional  array  of  relative  permit¬ 
tivity  and  conductivity  for  a  particular 
application  of  APM 

Real 

N/A 

>0  a 

a  Refer  to  section  7.3  for  a  complete  description. 


Table  5.  APM  CSCI  output  data  element  requirements. 


Name 

Description 

Type 

Units 

Source 

i 

xostp 

Index  of  output  range  step  at  which 
XO  model  is  to  be  applied 

Integer 

N/A 

APMINIT  CSC 

l  error 

Integer  value  that  is  returned  if  an 
error  occurs  in  called  routine 

Integer 

N/A 

APMINIT  CSC 
XOINIT  CSC 
APMCLEAN  CSC 
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Table  5.  APM  CSCI  output  data  element  requirements.  (Continued) 


Name 

Description 

Type 

Units 

Source 

mloss 

Propagation  loss 

Integer 

cB 

APMSTEP  CSC 
XOSTEP  CSC 

J  start 

Output  height  index  at  which  valid 

PE  propagation  loss  values  begin 

Integer 

N/A 

APMSTEP  CSC 

J end 

Output  height  index  at  which  valid 

PE  propagation  loss  values  end 

Integer 

N/A 

APMSTEP  CSC 

^ out 

Current  range 

Real 

meters 

APMSTEP  CSC 
XOSTEP  CSC 

Jxstart 

Output  height  index  at  which  valid 

XO  propagation  loss  values  begin 

Integer 

N/A 

XOINIT  CSC 

J  send 

Output  height  index  at  which  valid 

XO  propagation  loss  values  end 

Integer 

N/A 

XOSTEP  CSC 

aRefer  to  section  4.3.4  for  a  complete  description. 


4.3.3  Internal  Interface 

Section  4.2  shows  the  relationship  between  the  APM  CSCI  and  its  five  main  CSCIs:  APMINIT, 
AMPSTEP,  XOINIT,  XOSTEP,  and  APMCLEAN.  Figure  1  shows  this  relationship.  The  internal 
interface  between  these  three  CSCs  and  the  APM  CSCI  is  left  to  the  design.  However,  table  6  shows 
the  internal  structure  of  the  APM  CSCI  and  its  CSCs  and  SUs.  The  two  left  columns  show  the  call- 
in**  subroutines,  and  the  two  right  columns  show  the  subroutines  called.  Columns  2  and  4  give  the 
section  number  where  more  details  about  the  various  CSCs  and  SUs  of  the  APM  CSCI  can  be  found. 


Table  6.  APM  internal  interface  design. 


Software  Design  Description 

Software  Design  Description 

Software  Design  Description  Name 

SDD  Section 
Number 

Software  Design  Description  Name 

SDD  Section 
Number 

CSCI  Detailed  Design 

5 

Advance  Propagation  Initialization 
(APMINIT)  CSC 

5.1 

Advance  Propagation  Initialization 
(APMINIT)  CSC 

5.1 

Allocate  Arrays  APM 
(ALLARRAY_APM)  SU 

5.1.1 

Advance  Propagation  Initialization 
(APMINIT)  CSC 

5.1 

Allocate  Array  PE  (ALLARRAY_PE) 
SU 

5.1.2 

Advance  Propagation  Initialization 
(APMINIT)  CSC 

5.1 

Allocate  Array  XO 
(ALLAR  R A Y_XO)  SU 

5.1.3 

Advance  Propagation  Initialization 
(APMINIT)  CSC 

5.1 

Dielectric  Initialization  (DIEINIT)  SU 

5.1.5 

Advance  Propagation  Initialization 
(APMINIT)  CSC 

5.1 

Fast  Fourier  T ransform  (FFT)  SU 

5.1.6 
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Table  6.  APM  internal  interface  design.  (Continued) 


Software  Design  Description 

Software  Design  Description 

Fast  Fourier  Transform  (FFT)  SU 

5.1.6 

Sine  Fast  Fourier  Transform 
(SINFFT)  SU 

5.1.18 

Advance  Propagation  Initialization 
(APM  IN  IT)  CSC 

5.1 

Fill  Height  Arrays  (FILLHT)  SU 

5.1.8 

Advance  Propagation  Initialization 
(APMINIT)  CSC 

5.1 

Gaseous  Absorption  (GASABS) 

SU 

5.1.9 

Advance  Propagation  Initialization 
(APMINIT)  CSC 

5.1 

Get  Alpha  Impedance  (GETALN) 

SU 

5.1.10 

Advance  Propagation  Initialization 
(APMINIT)  CSC 

5.1 

Get  Mode  (GETMODE)  SU 

5.1.11 

Advance  Propagation  Initialization 
(APMINIT)  CSC 

5.1 

Get  Maximum  Angle  (GETTHMAX) 
SU 

5.1.12 

Get  Maximum  Angle  (GETTHMAX) 
SU 

5.1.12 

FFT  Parameters  (FFTPAR)  SU 

5.1.7 

Advance  Propagation  Initialization 
(APMINIT)  CSC 

5.1 

Interpolate  Profile  (INTPROF)  SU 

5.1.13 

Advance  Propagation  Initialization 
(APMINIT)  CSC 

5.1 

Free  Space  Propagator  Phase 

Term  (PHASE1)  SU 

5.1.14 

Advance  Propagation  Initialization 
(APMINIT)  CSC 

5.1 

Environmental  Propagator  Phase 
Term  (PHASE2)  SU 

5.1.15 

Advance  Propagation  Initialization 
(APMINIT)  CSC 

5.1 

Refractivity  Initialization  (REFINIT) 
SU 

5.1.17 

Refractivity  Initialization  (REFINIT) 

SU 

5.1.17 

Profile  Reference  (PROFREF)  SU 

5.1.16 

Refractivity  Initialization  (REFINIT) 

SU 

5.1.17 

Remove  Duplicate  Refractivity 
Levels  (REMDUP)  SU 

5.1.11 

Advance  Propagation  Initialization 
(APMINIT)  CSC 

5.1 

Terrain  Initialization  (TERINIT)  SU 

5.1.19 

Advance  Propagation  Initialization 
(APMINIT)  CSC 

5.1 

T  roposcatter  Initialization 
(TROPOINIT)  SU 

5.1.20 

Troposcatter  Initialization 
(TROPOINIT)  SU 

5.1.20 

Antenna  Pattern  (ANTPAT)  SU 

5.1.4 

Advance  Propagation  Initialization 
(APMINIT)  CSC 

5.1 

Starter  Field  Initialization  (XYINIT) 
SU 

5.1.21 

CSCI  Detailed  Design 

5. 

Advance  Propagation  Model  Step 
(APMSTEP)  CSC 

5.2 

Advance  Propagation  Model  Step 
(APMSTEP)  CSC 

5.2 

Flat  Earth  Model  (FEM)  SU 

5.2.3 
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Table  6.  APM  internal  interface  design.  (Continued) 


Software  Design  Description 

Software  Design  Description 

Flat  Earth  Model  (FEM)  SU 

5.2.3 

Antenna  Pattern  (ANTPAT)  SU 

5.1.4 

Flat  Earth  Model  (FEM)  SU 

5.2.3 

Get  Reflection  Coefficient 
(GETREFCOEF)  SU 

5.2.7 

Advance  Propagation  Model  Step 
(APMSTEP)  CSC 

5.2 

Parabolic  Equation  Step 
(PESTEP)  SU 

5.2.8 

Parabolic  Equation  Step  (PESTEP) 
SU 

5.2.8 

Calculate  Propagation  Loss 
(CALCLOS)  SU 

5.2.1 

Calculate  Propagation  Loss 
(CALCLOS)  SU 

5.2.1 

Get  Propagation  Factor 
(GETPFAC)  SU 

5.2.6 

Calculate  Propagation  Loss 
(CALCLOS)  SU 

5.2.1 

Troposcatter  (TROPO)  SU 

5.2.17 

Troposcatter  (TROPO)  SU 

5.2.17 

Antenna  Pattern  (ANTPAT)  SU 

5.1.4 

Parabolic  Equation  Step  (PESTEP) 
SU 

5.2.8 

DoShift  SU 

5.2.2 

Parabolic  Equation  Step  (PESTEP) 
SU 

5.2.8 

Free  Space  Range  Step  (FRSTP) 
SU 

5.2.4 

Free  Space  Range  Step  (FRSTP) 
CSC 

5.2.4 

Fast  Fourier  Transform  (FFT)  SU 

5.1.6 

Fast  Fourier  Transform  (FFT)  SU 

5.1.6 

Sine  Fast  Fourier  Transform 
(SINFFT)  SU 

5.1.18 

Parabolic  Equation  Step  (PESTEP) 
SU 

5.2.8 

FZLIM  SU 

5.2.5 

FZLIM  SU 

5.2.5 

Get  Propagation  Factor 
(GETPFAC)  SU 

5.2.6 

FZLIM  SU 

5.2.5 

Save  Profile  (SAVEPRO)  SU 

5.2.15 

FZLIM  SU 

5.2.5 

Spectral  Estimation  (SPECEST) 

SU 

5.2.16 

Spectral  Estimation  (SPECEST)  SU 

5.2.16 

Sine  Fast  Fourier  Transform 
(SINFFT)  SU 

5.1.18 

Parabolic  Equation  Step  (PESTEP) 
SU 

5.2.8 

Get  Alpha  Impedance  (GETALN) 
SU 

5.1.10 

Parabolic  Equation  Step  (PESTEP) 
SU 

5.2.8 

Refractivity  Interpolation 
(REFINTER)  SU 

5.2.10 

Refractivity  Interpolation 
(REFINTER)  SU 

5.2.10 

Interpolate  Profile  (INTPROF)  SU 

5.1.13 

Refractivity  Interpolation 
(REFINTER)  SU 

5.2.10 

Profile  Reference  (PROFREF)  SU 

5.1.16 

Refractivity  Interpolation 
(REFINTER)  SU 

5.2.10 

Remove  Duplicate  Refractivity 
Levels  (REMDUP)  SU 

5.2.11 
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Table  6.  APM  internal  interface  design.  (Continued) 


Software  Design  Description 

Software  Design  Description 

Parabolic  Equation  Step  (PESTEP) 

SU 

5.2.8 

Environmental  Propagator  Phase 
Term  (PHASE2)  SU 

5.1.15 

Advance  Propagation  Model  Step 
(APMSTEP)  CSC 

5.2 

Ray  Optics  Model  (ROM)  SU 

5.2.14 

Ray  Optics  Model  (ROM)  SU 

5.2.14 

Ray  Optics  Calculation 
(ROCALC)  SU 

5.2.12 

Ray  Optics  Calculation  (ROCALC)  SU 

5.2.12 

Antenna  Pattern  (ANTPAT)  SU 

5.1.4 

Ray  Optics  Calculation  (ROCALC)  SU 

5.2.12 

Get  Reflection  Coefficient 
(GETREFCOEF)  SU 

5.2.7 

Ray  Optics  Calculation  (ROCALC)  SU 

5.2.12 

Ray  Trace  (RAYTRACE)  SU 

5.2.9 

Ray  Optics  Model  (ROM)  SU 

5.2.14 

Ray  Optics  Loss  (ROLOSS)  SU 

5.2.13 

CSCI  Detailed  Design 

5. 

Extended  Optics  Initialization 
(XOINIT)  CSC 

5.3 

Extended  Optics  Initialization 
(XOINIT)  CSC 

5.3 

Smooth  (Smooth)  su 

5.3.1 

CSCI  Detailed  Design 

5 

Extended  Optics  Step  (XOSTEP) 
CSC 

5.4 

Extended  Optics  Step  (XOSTEP)  CSC 

5.4 

Extended  Optics  (EXTO)  SU 

5.4.1 

Extended  Optics  (EXTO)  SU 

5.4.1 

Troposcatter  (TROPO)  SU 

5.2.17 

Troposcatter  (TROPO)  SU 

5.2.17 

Antenna  Pattern  (ANTPAT)  SU 

5.1.4 

Extended  Optics  Step  (XOSTEP)  CSC 

5.4 

Flat  Earth  Model  (FEM)  SU 

5.2.3 

Flat  Earth  Model  (FEM)  SU 

5.2.3 

Antenna  Pattern  (ANTPAT)  SU 

5.1.4 

Flat  Earth  Model  (FEM)  SU 

5.2.3 

Get  Reflection  Coefficient 
(GETREFCOEF)  SU 

5.2.7 

CSCI  DETAILED  DESIGN 

5 

Extended  Optics  Step  (XOSTEP) 
CSC 

5.4 

Extended  Optics  Step  (XOSTEP)  CSC 

5.4 

Ray  Optics  Model  (ROM)  SU 

5.2.14 

Ray  Optics  Model  (ROM)  SU 

5.2.14 

Ray  Optics  Calculation 
(ROCALC)  SU 

5.2.12 

Ray  Optics  Calculation  (ROCALC)  SU 

5.2.12 

Antenna  Pattern  (ANTPAT)  SU 

5.1.4 

Ray  Optics  Calculation  (ROCALC)  SU 

5.2.12 

Get  Reflection  Coefficient 
(GETREFCOEF)  SU 

5.2.7 

Ray  Optics  Calculation  (ROCALC)  SU 

5.2.12 

Ray  Trace  (RAYTRACE)  SU 

5.2.9 

Ray  Optics  Model  (ROM)  SU 

5.2.14 

Ray  Optics  Loss  (ROLOSS)  SU 

5.2.13 

CSCI  Detailed  Design 

5 

Advanced  Propagation  Model 

Clean  (APMCLEAN)  CSC 

5.5 
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4.3.4  Internal  Data 

The  APM  CSCI  takes  full  advantage  of  Fortran  90  features,  using  allocatable  arrays  for  all  internal 
and  input  arrays.  This  utilization  requires  that  the  TESS-NC  CSCI  designer  correctly  allocate  and 
initialize  all  arrays  necessary  for  APM  CSCI  input.  The  APMCLEAN  CSC  is  provided  as  part  of  the 
APM  CSCI  and  can  be  called  by  the  TESS-NC  application  to  deallocate  all  arrays  used  by  the  APM 
CSCI  in  one  complete  run. 

Due  to  the  computational  intensity  of  the  APM  CSCI,  it  may  not  be  necessary  or  desirable  to  use 
the  extreme  capability  of  the  APM  CSCI  for  all  applications.  The  variables  nwm  and  nwu,  refer  to  the 
desired  number  of  range  and  height  output  points  for  any  one  particular  application,  and  will  be 
specified  when  the  APMENIT  CSC  is  called. 

One  of  the  parameters  returned  to  the  TESS-NC  application  from  the  APMINIT  CSC  is  iemr.  Re¬ 
turning  the  parameter  allows  greater  flexibility  in  how  input  data  are  handled  within  the  TESS  appli¬ 
cation.  Table  7  lists  all  possible  errors  that  can  be  returned. 

The  logical  variables,  lerr6  and  lerrl2,  when  set  to  ‘.false.’,  allow  the  TESS-NC  application  to 
bypass  their  associated  errors,  as  these  are  not  critical  to  APM  CSCI  operation. 

The  APM  CSCI  provides  propagation  loss  for  all  heights  and  ranges  when  running  in  a  full  hybrid 
mode.  When  running  in  a  partial  hybrid  mode,  it  provides  propagation  loss  for  all  heights,  but  not 
necessarily  for  all  angles.  Finally,  it  will  be  limited  in  both  height  and  angle  coverage  when  running 
in  a  PE-only  mode.  Refer  to  section  5  for  environmental  conditions  under  which  each  execution 
mode  is  automatically  selected. 

Absorption  by  atmospheric  gases  (oxygen  and  water  vapor)  may  be  important  to  some  APM  CSCI 
applications  and  is  controlled  by  specifying  a  non-zero  value  for  the  absolute  humidity,  abshum,  and 
the  surface  air  temperature,  tair;  or  likewise,  specifying  a  non-zero  value  for  the  gaseous  absorption 
attenuation  rate,  Ja. 


Table  7.  APMINIT  SU  returned  error  definitions. 


Error 

-6 

-7 

-8 

-9 

-10 

-12 

-13 

-14 

-17 

-18 

-42 


Definition 

Last  range  in  terrain  profile  is  less  than  rm.  Returns  this  error  only  if  Ierr6  is  set  to  ‘.true.’ 
Specified  cut-back  angles  (for  user-defined  height  finder  antenna  pattern)  are  not  increasing. 

is  less  than  maximum  height  of  terrain  profile. 

Antenna  height  with  respect  to  mean  sea  level  is  greater  than  maximum  height  h^. 
Beamwidth  is  less  than  or  equal  to  zero  for  directional  antenna  pattern. 

Range  of  last  environment  profile  given  (for  range-dependent  case)  is  less  than  r^.  Returns 
this  error  only  if  Ierr12  is  set  to  ‘.true.’ 

Height  of  first  level  in  any  user-specified  refractivity  profile  is  greater  than  0.  First  height  must 
be  at  mean  sea  level  (0.0)  or  <  0.0  if  below  mean  sea  level. 

Last  gradient  in  any  environment  profile  is  negative. 

Range  points  of  terrain  profile  are  not  increasing. 

First  range  value  in  terrain  profile  is  not  0. 

Minimum  height  input  by  user,  hmM  is  greater  than  maximum  height,  h^. 
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A  particular  APM  CSCI  application  may  or  may  not  require  the  consideration  of  troposcatter  ef¬ 
fects  within  the  propagation  loss  calculations.  For  example,  a  radar  evaluation  would,  most  likely, 
not  be  influenced  by  troposcatter  while  an  ESM  evaluation  would.  APM  has  the  feature  of  including 
or  not  including  the  troposcatter  calculation  by  setting  a  parameter  called  i  Setting  this  parameter 
to  0  omits  the  calculation.  Setting  this  parameter  to  1  includes  the  calculation.  For  the  APM  CSCI 
implementation  within  the  TESS-NC  coverage  and  loss  diagram  applications,  i  must  be  set  equal 
to  1  to  include  the  calculation. 


5.  CSCI  DETAILED  DESIGN 

The  following  subsections  provide  a  description  of  each  APM  CSCI  component. 

5.1  ADVANCE  PROPAGATION  INITIALIZATION  (APMINIT)  CSC 

The  APMINTT  CSC  interfaces  with  various  SUs  for  the  complete  initialization  of  the  APM  CSCI. 

Upon  entering  the  APMINIT  CSC,  several  variables  are  initialized.  The  error  flag  (i  ),  the 
maximum  PE  propagation  angle  (0^,  the  absorption  calculation  flag  (kab),  and  the  range  at  which 
PE  loss  values  will  start  being  calculated  (r^J,  are  set  to  0. 

Next,  the  absorption  calculation  flag,  k^,  is  set  to  1  if  the  air  temperature,  tair,  or  the  absolute  hu¬ 
midity,  abshum,  are  non-zero.  If  an  attenuation  rate  is  specified  (ja  *  0),  then  kabs  is  set  to  2. 

Next,  the  following  variables  are  checked  for  valid  numerical  values:  maximum  output  range,  r  ; 
maximum  output  height,  h^;  and  minimum  output  height,  hmin.  The  variable  is  set  to  the  value* 
specified  from  the  calling  CSCI  or  5000  meters,  whichever  is  greater.  The  variable  h^,  is  set  to  the 
value  specified  from  the  calling  CSCI  or  100  meters,  whichever  is  greater.  If  hmm  is  greater  than  h^, 
then  iemr  is  set  to  -42  and  the  APMINIT  CSC  is  exited.  If  the  maximum  output  range  and  minimum 
and  maximum  output  height  values  are  valid,  then  the  APMINIT  CSC  proceeds  to  the  next  step. 

The  atmospheric  volume  must  be  “covered”  or  resolved  with  a  mesh  of  calculation  points  that 
will,  as  a  matter  of  routine,  exceed  the  height/range  resolution  requirements  of  the  particular  appli¬ 
cation  of  the  APM  CSCI.  The  height  and  range  mesh  size  per  APM  CSCI  output  point,  A zou,  and 
A rou r  respectively,  are  calculated  from  the  number  of  APM  output  points  and  the  maximum  range 
and  height  as  follows: 


Ar  =-^~ 

out 


n 


A  -  _  hjnax  ^min 

out 

nzou, 

The  array,  zout,  which  contains  all  output  height  points,  is  determined  by  the  formula: 

zout,  =  hmin  +  iAz0Ut  for  i  =  1,2,3,. ..nzout. 

Next,  the  following  variables  are  determined  for  later  calculations:  the  wavelength,  A ;  the  free- 
space  wavenumber,  k0 ;  a  multiplicative  variable,  con,  used  to  determine  the  refractivity  phase  term; 
and  a  loss  term  used  to  determine  free-space  loss,  plcnst.  They  are  determined  as  follows: 
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X  = 

where  ca  is  the  speed  of  light  ( 299.79  x  1 06  m/s ); 

= 

con  = 
plcm=  20LOG(2*o). 

The  number  of  terrain  range/height  pairs,  ilpa,  used  for  internal  calculations,  is  initialized  to  1  plus 
the  user-specified  number  of  range/height  pairs,  ilp.  The  ALLARRAY_APM  SU  is  then  referenced  to 
dynamically  allocate  and  initialize  all  arrays  associated  with  terrain,  refractivity,  troposcatter,  and 
general  variable  arrays.  If  an  error  has  occurred  while  allocating  memory,  ierror  is  returned  with  a  non¬ 
zero  value  and  the  CSC  is  exited;  otherwise,  the  CSC  proceeds  to  the  next  step. 

Arrays  containing:  all  output  ranges,  mgout;  the  square  of  all  output  ranges,  rsqrd;  20  times  the 
logarithm  of  all  output  ranges,  rlogo  and  the  free-space  loss  at  all  output  ranges,  fslr,  are  initialized 
as  follows: 

rngout,-iArou„ 
rsqrd j={i  Aroul  )2 , 
rlogo , = 20  LOG(z  A rou, ), 

/sir, = rlogo,  +  plcnsl ; 


f, 


MHz 


2n 

T’ 


106  k0. 


where  the  index  i  ranges  from  1  to  nrour. 

Next,  the  constants  used  to  determine  the  antenna  pattern  factor  are  computed.  First,  if  a  user- 
defined  height-finder  antenna  pattern  has  been  specified,  ( ipm  =  6),  along  with  power  cut-back  angles 
and  factors,  then  the  angles  are  converted  to  radians  and  stored  in  the  array,  hfangr.  If  the  cut-back 
angles  are  not  steadily  increasing,  itrwr  is  set  to  -7  and  the  CSC  is  exited;  otherwise,  the  CSC  proceeds 
with  the  next  step. 

If  a  directional  antenna  pattern  has  been  specified,  the  antenna  vertical  beamwidth  in  degrees,  piH, 
is  checked  for  extremely  small  beamwidth  values.  If  the  value  is  less  than  or  equal  to  10'4,  ierror is  set 
to  -10  and  the  CSC  is  exited;  otherwise,  the  CSC  proceeds  with  the  next  step. 


The  antenna  beamwidth  and  elevation  angles  are  converted  to  radians  (nh,  and  p„r,  respectively) 
and  the  following  variables,  antfac  and  | xnax,  for  use  in  the  ANTPAT  SU  are  determined  as  follows.  If 
the  antenna  pattern  is  Gaussian  (^=2),  then  antfac  is  given  by 


ant 


fac 


34657359 
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If  the  antenna  pattern  is  Sin(X)/X  (ipat  =  3),  or  a  generic  height  finder,  (i  =  5),  then  ant  is  given 


and  fi^  is  given  by 


antfac  = 


1.39157 


=  TAN' 


Next,  the  TERINIT  SU  is  referenced  to  initialize  all  terrain  profile  and  associated  arrays.  If  an  er¬ 
ror  has  occurred  while  in  the  TERINIT  SU,  iermr  is  returned  with  a  non-zero  value  and  the  CSC  is 
exited,  otherwise;  the  CSC  proceeds  with  the  next  step. 

The  variable  yfief  is  initialized  to  0.  If  a  terrain  profile  has  been  specified,  (fie  =’.true.’),  then  y  is 
set  equal  to  tyv  Next,  the  following  height  arrays  are  initialized  as  follows: 

z  =  hmref  +iAzout; 
zouti  =  z. 


zoutma 

zoutpai 


=z-yM, 

=z-  antref , 
=z-yM+antlu, 


where  the  index,  i,  ranges  from  0  to 

The  GETMODE  SU  is  then  referenced  to  determine  the  execution  mode  the  APM  CSCI  will  oper¬ 
ate.  Next,  the  REFINIT  SU  is  referenced  to  initialize  all  reffactivity  associated  arrays.  If  an  error  has 
occurred  while  in  the  REFINIT  SU,  ierwr  is  returned  with  a  non-zero  value  and  the  CSC  is  exited; 
otherwise,  the  CSC  proceeds  to  the  next  step.  If  the  flag,  impo,  equals  1,  then  the  TROPOINIT  SU  is 
referenced  to  initialize  all  arrays  associated  with  troposcatter  calculations. 

The  limiting  grazing  angle,  is  computed  as 

V,.  =AMAxf.002,^^l. 
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If  more  than  one  refractivity  profile  has  been  specified  (nrro}>\),  then  is  multiplied  by  2.  It  is 
then  adjusted  for  trapping  effects  by 


W  Urn 


where  r  and  r  .  are  determined  in  the  REFINIT  SU.  The  RO  elevation  angle  limit,  a,  ,  is  given 

mmax  mmm  w 

by 


a 


Urn 


where  the  array,  rm,  and  index,  imrJ,  are  determined  in  the  REFINIT  SU. 

Next,  several  variables  are  initialized.  The  height  tolerance,  zwl,  is  initialized  to  0.05  and  the  mini¬ 
mum  power  of  2  transform.  In ^  is  initialized  to  10.  If  no  terrain  profile  is  specified  and  fMHz  is  less 
than  or  equal  to  3001  MHz,  then  lnmin  is  set  equal  to  9.  The  range  and  index  variables  for  the  RO  re¬ 
gion,  iROp  and  xROn,  are  initialized  to  -1  and  0,  respectively. 

The  minimum  height  for  the  PE  calculation  region  is  determined  next.  The  minimum  height  en¬ 
compassing  all  trapping  refractive  layers  is  given  by 

fyesl  fyrap  fyhick  ’ 

where  h  and  hMck  are  determined  in  the  REFINIT  SU.  If  running  in  the  full  hybrid  mode,  (ihyMd=  1), 
the  minimum  height  for  the  PE  calculation  region  is  given  by 

=AMAX(/?^,1 2hlemax), 


where  humax  is  determined  in  the  TERINIT  SU.  If  running  in  either  the  partial  hybrid  mode  or  PE- 
only  mode,  z„s,  is  then  given  by 

z,es,  =AMA x(htlim,antn/). 


The  tangent  angle,  ami,  used  for  automatic  calculation  of  the  maximum  propagation  angle,  is  also 
given  by 


=TAN- 


..2  \ 


Z,e.s,+antre/+  — 


a 


ekl 


max 

\  J 


with  a,im  now  set  equal  to  the  greater  of  amt  or  the  previously  determined  alim. 

The  maximum  propagation  angle  in  the  PE  region,  0^,  is  now  determined  by  referencing  the 
GETTHMAX  SU.  If  ihyhnd  equals  2  (partial  hybrid  mode)  and  zlim  is  greater  than  htlim,  then  ihyMd  is  set 
equal  to  1  (PE-only  mode).  Next,  z,im  is  set  equal  to  the  minimum  of  htljm  and  zKm- 
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The  following  procedure  is  performed  to  maximize  0^  within  the  given  transform  size  as  deter¬ 
mined  in  the  FFTPAR  SU  (referenced  from  the  GETTHMAX  SU).  This  procedure  is  performed  only 
if  a  terrain  profile  is  specified,  if  running  in  an  execution  mode  other  than  the  full  hybrid  mode,  and 
if  0.74 is  greater  than  zlim.  The  ratio  of  initial  launch  angle  to  maximum  propagation  angle,  ©Aac,  is 
determined  as 


0 


frac 


_  ^ launch 


0„ 


where  is  determined  in  the  GETTHMAX  SU.  Next,  the  sine  of  Qmax  is  computed  as 

_  Zlim 

74  ’ 

SJN(0_)=^i. 

2Zmax 

Upper  limits  on  the  sine  of  © max  are  imposed  according  to 

SW(©raI)=AMIN(SIN(0_),SIN(lO“));  forf„Bz>  1000. 
SIN(e_)=AMIN(SIN(0ra),SIN(l5»));  for <1000. 

0^  is  then  recomputed,  along  with  other  corresponding  PE  calculation  parameters: 

A,  = _ *. _ 

"  2SIN(0_)' 
e-  -SIN-'(G_), 

Z-max  =nfft  ^ZpE* 

®75  =-750^, 


with  the  launch  angle  recomputed  as 


^ launch  ^frac^max  * 


Next,  the  index  of  the  output  range  step,  i^,  at  which  the  XO  model  will  be  applied,  is  initialized 
to  0.  The  following  steps  (1  through  6)  are  performed  if  ihyMd  is  not  equal  to  0. 

1.  If  zUm  is  less  than  htlim- 10'3,  then  the  SU  proceeds  with  steps  2  through  6.  Otherwise,  these 
steps  are  skipped  and  the  output  range  and  index,  raa  and  imtz,  respectively,  are  calculated  as 

ran  =2  rmax* 

Lz=nrout+]- 

2.  The  bin  number,  jzlm,  corresponding  to  zUm,  is  given  by 


jz,im  -INT 


Zl;, 


Urn 


A z 


PE  x 
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and  zlim  is  recomputed  such  that  it  corresponds  to  an  integer  multiple  of  bins  or  mesh  heights, 

ZUm=jZUm  ^Z-PE- 

3.  Next,  rm  and  imr  are  determined  based  on  the  height,  angle,  and  range  arrays,  htemp,  raya, 
and  rtemp,  previously  determined  in  the  GETTHMAX  SU.  First,  the  index,;',  is  initialized  to 
i  (previously  determined  in  the  GETTMAX  SU)  and  the  index,  id,  is  initialized  to  1.  The 
following  steps  (a  through  b)  are  repeated  until;  is  greater  than  immp. 

a.  If  htemp j  is  greater  than  zKm,  then  the  iteration  is  ended  and  the  SU  proceeds  with  step  4. 

b.  If  htemp j  is  greater  than  zrtid,  then  id  is  incremented  by  1 .  The  index;  is  now  incremented 
by  1 .  Steps  3a  through  3b  are  then  repeated. 

4.  The  index,  ira,  is  set  equal  to  the  greater  of  1  or;'-l;  the  index  idg  is  set  equal  to  id- 1;  and  the 
gradient  grd  is  set  equal  to  gridg. 

5.  Next,  the  ray  with  initial  launch  angle,  alamch,  is  traced  from  height,  htemp  m,  to  zKm.  The 
square  of  the  local  ray  angle,  rad,  at  the  end  of  the  ray  trace  step  is  given  by 

rad  =  raya)ra  +  2  grd  (zlim  -  htemp ) . 

The  local  ray  angle,  aatz,  at  height,  zUm,  is  initialized  to  0.  If  rad  is  greater  than  0,  then  aatz  is 
given  by 

amz  =SlGN{\,rayaim)4rad  , 


and  the  range,  raB,  is  now  given  by 


raK  =  rtemp ira  + 


aat?  ~  raya„ 

Srd 


6.  If  r  is  less  than  r^  and  zUm  is  less  than  htlim,  then  the  index  k  is  determined  such  that  mgoutk 
>  r2 and  mgoutkA"<raR.  Then  iraa  is  set  equal  to  the  smaller  of  nmu,  and  k,  and  imslp  is  set  equal 

t0  Kan 

Next,  the  radar  horizon  range,  rhor  ,for  the  source  height,  antref,  and  0  receiver  height,  is  computed 
by 

rtor  =  41243387  yfant^ , 


and  the  initial  PE  range  step  is  given  by 

A rPE  =2  ka  Azpe  ■ 

Due  to  numerical  constraints,  numerical  limits  will  be  imposed  on  the  PE  range  step,  depending 
on  as  follows.  If  performing  a  terrain  case,  A rPE  is  set  equal  to  the  smaller  of  A rPE  and  700;  and 
the  variable  rlUm  is  given  by 

rlu=75  for  5  km  <  r^  <10  km ; 

rlUm=90  for  10  km  <rmax  <15  km ; 

rlu=100  for  15  km  ^r^  <20  km ; 
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II 

for  20  km  <rmax  <30  km; 

rhm=175 

for  30  km  <^<50  km; 

rL=200 

for  50  km  <75  km; 

>4=250 

for  75  km  <^<100  km  ; 

^=300 

for  100  km  <1^  . 

The  variable,  A rPE,  is  then  set  equal  to  the  greater  of  A rPE  and  rllim.  If  (previously  determined  in 
the  TERINIT  SU)  is  greater  than  0,  then  the  temporary  range  step  variable,  rd,  is  given  by 


r 

'  ^PE 


and  A rPE  is  recomputed  according  to 


A/>£=NINT| 


\rd  J 


V>  far  rd  <  1, 


^rPE  ~ 


' fix 


NINT (rd) 


;  for  rd>  1. 


The  variable,  iz^,  is  then  initialized  to  1 . 

If  no  terrain  profile  is  specified,  then  A rFE  is  determined  as  follows.  If  running  in  the  PE-only 
mode,  A rPE  is  given  by 


A  rPE  =  AMAX(  AMIN  (ArPE ,  1 000), 30). 


Next,  if  is  greater  or  equal  to  rhor,  then  A rPE  is  set  equal  to  the  greater  of  300  and  A rPE.  The  vari¬ 
able,  iz^,  is  then  initialized  to  3.  If fMHz  >  10,000  MHz,  then  izinc  is  set  equal  to  1;  if  5,000  <fMHz  < 
10,000  MHz,  then  izinc  is  set  equal  to  2. 

All  variables  and  arrays  associated  with  XO  calculations  are  now  initialized,  provided  i  is 
greater  than  0.  The  maximum  number  of  points,  iz^,  allocated  for  arrays  used  in  XO  calculations,  is 
determined  by 


NINT 


(r  -r  \ 

max  atz 


A  r, 


17  =  - 

max 


PE 


-+4. 


1 Zinc 


Next,  variables  needed  for  spectral  estimation  calculations  are  initialized.  The  number  of  bins,  n  , 
considered  in  the  upper  PE  region,  is  set  equal  to  8  if  no  terrain  profile  is  specified,  and  16,  other¬ 
wise.  The  power  of  2  transform,  lnp,  is  set  equal  to  6  if  no  terrain  profile  is  specified,  and  7,  other¬ 
wise.  The  following  variables  are  given  by 
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2  If 

. 


_np 

V  -  4  ’ 

«P34  =3V’ 


C«P75  = 


7T 


n 


p4 


The  ALLARRAY_XO  SU  is  then  referenced  to  allocate  and  initialize  all  arrays  associated  with 
XO  calculations.  The  filter  array,  filtp,  is  now  determined  by 

filtpi  = .5 + .5 COS(i cnpl5 );  for  i= 0,l,2,...,np4, 


and  the  variable,  xocm,  is  given  by 


JC0„. 


One-half  the  PE  range  step,  A rPE2,  is  given  by  Vi  A rpp  and  the  following  PE  transform  variables  are 
computed:  the  angle  (or  p-space)  mesh  size,  A p ;  the  Fourier  transform  normalization  constant,  fmrm; 
the  constant  used  in  determining  the  free-space  phase  factors,  cn;,  the  transform  size  minus  1,  nml;  % 
of  the  transform  size,  nV4;  and  twice  the  height  (or  z-space)  mesh  size,  A zPE2,  are  determined  as  fol¬ 
lows: 

ic 

A P  ~~  >  J norm 

Zmax 

Ap 

c  =  — n,  —  riff,  — 

n  jt  ,  * 

fi 3/4  3 ,  Azp£  2  —  2  Azpe  • 
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The  ALLARRAY_PE  SU  is  then  referenced  to  allocate  and  initialize  all  arrays  associated  with  PE 
calculations.  The  filter  array,  filt,  for  subsequent  filtering  of  the  PE  field,  is  given  by 


filt,  =5+5COS 


V  n4j 


L  for  i  -  0,l,2,...,n4. 


The  counter,  i ,  indicating  the  current  ground  type  being  modeled,  is  initialized  to  1.  The  DIEINIT 
SU  is  then  referenced  to  initialize  all  dielectric  ground  constants.  If  fMHz  is  less  than  or  equal  to  300 
MHz  and  vertical  polarization  is  specified,  the  GETALN  SU  is  referenced  to  determine  the  surface 
impedance. 

Next,  the  XYINIT  SU  is  referenced  to  determine  the  initial  PE  solution,  followed  by  a  reference  to 
the  FFT  SU  to  transform  the  PE  field  to  z-space  coordinates.  If  vertical  polarization  is  specified,  the 
variables  C,  and  C2  are  initialized  as  follows.  C,  and  C2  are  first  given  by 
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/  \ 

C,  root 

i=i 

/  \ 

C2  =  5[U0  rootmnjfi  +Unffi  J + £  £/  _,  rootmi , 

i=i 

where  the  arrays  root  and  rootm  are  determined  in  the  GETALN  SU.  The  variables  are  further  modi¬ 
fied  according  to 

Cx  =  CXR,  C2  =  C2R, 

where  the  coefficient,  R,  is  also  determined  in  the  GETALN  SU. 

Next,  several  variables  are  initialized.  The  height  of  the  ground,  ylasl,  at  the  previous  PE  range  is 
initialized  to  0.  If  a  terrain  profile  is  specified,  ylast  is  initialized  to  ty\.  The  height  of  the  ground,  ycurm, 
midway  between  each  PE  range  step,  is  initialized  to  0,  and  the  height  of  the  ground,  ycur,  at  the  cur¬ 
rent  PE  range,  is  initialized  to  0.  The  PE  mesh  height  array,  ht,  is  given  by 

ht{  =  i  A zPE ,  for  i  =  0,1,2, 


The  index  counter,  iz,  is  initialized  to  1  and  the  FELLHT  SU  is  referenced  to  obtain  the  htfe  array 
separating  the  FE  from  the  RO  region.  Next,  the  free-space  propagator  array ,frsp,  is  determined  via 
a  reference  to  the  PHASE  1  SU. 

The  following  steps  (a  through  e)  are  performed  to  adjust  the  refractivity  arrays  gr,  rm,  q,  and  zrt, 
associated  with  RO  calculations  for  the  special  case  when  the  terrain  profile  is  initially  flat,  but  at 
non-zero  height. 

a.  First,  the  index  nlevel  is  initialized  to  the  number  of  refractivity  levels,  levels;  yref  is  initial¬ 
ized  to  tyx;  refref  and  href  are  initialized  to  zero;  and  the  index,  js,  is  initialized  to  -1. 

b.  Next.ys  is  determined  such  that  zrtjs  <  yref  <  zrtjs+x .  If  a  value  for  js  is  not  found  such  that 
this  condition  holds  true  (i.e.,js  remains  at  -1),  then  the  SU  proceeds  with  step  e. 

c.  The  refractivity  at  yrrf  is  now  computed  from 

f  _  >W  ~  Zrtp 
Vtjs+i  ~  zrtjs 

rmu  =  ""js  +  ( "  rmJS)frac. 

If  INT(frai;)  is  equal  to  1,  then  js  is  set  equal  to  js+ 1.  The  temporary  counter,  lnew,  is  initialized 
to  nlevel-js. 

d.  The  first  element  in  refref  and  href  is  now  set  equal  to  rmu  and  0,  respectively.  The  remainder 
of  the  current  refractivity  profile  is  adjusted  in  height  and  stored  in  refref  and  href  according 
to 

refref  j  =  rmk 

href t  =  zrtk  -  yref;  for  j  =  1,2,3,.  Jnew, 
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where  the  index,  k,  is  initialized  to  js+l  at  the  start  and  is  incremented  by  one  with  each  it¬ 
eration  of  j.  The  variable,  levels,  indicating  the  number  of  levels  in  the  newly  created  profile, 
is  now  set  to  lntK.  ref  ref  and  href  axe  now  used  to  initialize  rm  and  zrt. 

e.  The  arrays,  gr  and  q,  are  now  recomputed  based  on  the  newly  adjusted  refractivity  arrays,  rm 
and  zrt.  The  gradient  array,  gr,  is  given  by 

HthuZlOL.  for /  =  0,1,2,..., levels. 
zrtM  -  zrt-t 

If  the  absolute  value  of  gr  is  less  than  10'8,  then  gr  is  given  by 

gr{  =  10-8  SIGN(l., gr;) . 

The  array,  q,  is  given  by 

qi=2(rmi+l  -  rm)-,  fori  =  0,1,2,...,  levels. 

If  a  terrain  profile  is  not  specified  and  nprof  is  equal  to  1,  then  the  ENTPROF  SU  is  referenced  to 
determine  the  refractivity  array  profint  at  each  PE  mesh  height.  Next,  the  PHASE2  SU  is  referenced 
to  determine  the  environmental  phase  array,  envpr.  Finally,  if  the  absorption  flag,  k^,  is  equal  to  1, 
then  the  GASABS  SU  is  referenced  to  determine  the  absorption  attenuation  rate,  gasM.  If  is  equal 
to  2,  then  gasan  is  determined  by  the  calling  CSCI-specified  attenuation  rate,  ya,  multiplied  by  10'2. 

Tables  8  and  9  identify,  describe,  and  provide  the  units  of  measure  and  computational  source  for 
each  input  and  output  data  element  of  the  APMINIT  CSC. 


Table  8.  APMINIT  CSC  input  data  element  requirements. 


Name 

Description 

Units 

Source 

abstam 

Absolute  humidity  near  the  surface 

g/meter3 

Calling  CSCI 

4/3  effective  earth’s  radius 

meters 

APM_MOD 

ant,. 

T ransmitting  antenna  height  above  local 
ground 

meters 

Calling  CSCI 

dielec 

Two-dimensional  array  containing  the 

N/A, 

Calling  CSCI 

relative  permittivity  and  conductivity; 
dielec ,,  and  dielec2P,  respectively. 

S/m 

f MHz 

Frequency 

MHz 

Calling  CSCI 

Ya 

Surface  specific  attenuation 

dB/km 

Calling  CSCI 

hfang 

Cut-back  angles 

degrees 

Calling  CSCI 

hffac 

Cut-back  antenna  pattern  factors 

N/A 

Calling  CSCI 

Maximum  output  height  with  respect  to 
mean  sea  level 

meters 

Calling  CSCI 

h-min 

Minimum  output  height  with  respect  to 
mean  sea  level 

meters 

Calling  CSCI 
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Table  8.  APM1NIT  CSC  input  data  element  requirements.  (Continued) 


Name 

Description 

Units 

Source 

hmsl 

Two-dimensional  array  containing  heights 
with  respect  to  mean  sea  level  of  each 
profile.  Array  format  must  be  hmsltj  = 
height  of  t  level  of  f  profile;  j  =  1  for 
range-independent  cases 

meters 

Calling  CSCI 

^  extra 

Extrapolation  flag  for  refractivity  profiles 
entered  below  mean  sea  level 

ia„  =  0;  extrapolate  to  minimum  terrain 
height  standard  atmosphere  gradient 

ie„m  =  1;  extrapolate  to  minimum  terrain 
height  using  first  gradient  in  profile 

N/A 

Calling  CSCI 

V 

Number  of  different  ground  types  speci¬ 
fied 

N/A 

Calling  CSCI 

igmd 

Integer  array  containing  ground  type 
composition  for  given  terrain  profile — can 
vary  with  range.  Different  ground  types 
are: 

0  =  Seawater 

1  =  Freshwater 

2  =  Wet  ground 

3  =  Medium  dry  ground 

4  =  Very  dry  ground 

5  =  Ice  at  -1  degree  C 

6  =  Ice  at  -10  degree  C 

7  =  User  defined  (in  which  case,  values 
of  relative  permittivity  and  conductivity 
must  be  given). 

N/A 

Calling  CSCI 

lpat 

Antenna  pattern  type 

ipat  =  1 :  Omni-directional 

ipat  =  2:  Gaussian 

ipat-  3:  Sine(x)/x 

ipat  =  4:  Cosecant-squared 

ipat  =  5:  Generic  height-finder 

ipat  ~  6:  User-defined  height-finder 

N/A 

Calling  CSCI 

lpol 

Polarization  flag: 

0  =  Horizontal  polarization 

1  =  Vertical  polarization 

N/A 

Calling  CSCI 

^nemp 

Temporary  number  of  range  steps  (used 
for  ray  tracing) 

N/A 

APM_MOD 

l'P 

Number  of  height/range  points  in  profile 

N/A 

Calling  CSCI 
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Table  8.  APMINIT  CSC  input  data  element  requirements.  (Continued) 


Name 

Description 

Units 

Source 

^ tropo 

Troposcatter  calculation  flag: 
hropo  =  0;  no  troposcatter  calcs 
i  =  1 ;  troposcatter  calcs 

N/A 

Calling  CSCI 

Ivlp 

Number  of  levels  in  refractivity  profile 

N/A 

Calling  C3CI 

Vbw 

Antenna  vertical  beamwidth 

degrees 

Calling  CSCI 

ft, 

Antenna  elevation  angle 

degrees 

Calling  CSCI 

ft** 

Number  of  user-defined  cut-back  angles 
and  cut-back  antenna  factors  for  user 
specified  height-finder  antenna  type 

N/A 

Calling  CSCI 

»W 

Number  of  refractivity  profiles 

N/A 

Calling  CSCI 

Number  of  output  height  points  desired 

N/A 

Calling  CSCI 

ft» 

Number  of  output  range  points  desired 

N/A 

Calling  CSCI 

pi 

Constant  equal  to  the  value  of  n 

N/A 

APM_MOD 

Radians  to  degrees  conversion  factor 

dgrees/ 

radians 

APM_MOD 

refmsl 

Two-dimensional  array  containing  refrac¬ 
tivity  with  respect  to  mean  sea  level  of 
each  profile.  Array  format  must  be 
refmsl M-unit  at  i*  level  of  f  profile; 
j  =  1  for  range-independent  cases 

M-units 

Calling  CSCI 

rgmd 

Array  containing  ranges  at  which  varying 
ground  types  apply. 

meters 

Calling  CSCI 

r 

max 

Maximum  specified  range 

meters 

Calling  CSCI 

mgprof 

Ranges  of  each  profile; 
mgprof.  =  range  of  ib  profile 

meters 

Calling  CSCI 

Lr 

Air  temperature  near  the  surface 

°C 

Calling  CSCI 

terx 

Range  points  of  terrain  profile 

meters 

Calling  CSCI 

tery 

Height  points  of  terrain  profile 

meters 

Calling  CSCI 
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Table  9.  APMINIT  CSC  output  data  element  requirements.  (Continued) 


Name 

Description 

Units 

a«: 

Local  ray  or  propagation  angle  at  height,  z,m,  and 
range  raz. 

radians 

a'k2 

Twice  4/3  effective  earth’s  radius 

meters 

afac 

Antenna  pattern  parameter  (depends  on  ipat  and 
/W 

N/A 

& launch 

Launch  angle  used  which,  when  traced,  separates 

PE  and  XO  regions  from  the  RO  region 

N/A 

Elevation  angle  of  the  RO  limiting  ray 

radians 

c, 

Coefficient  used  in  vertical  polarization  calculations 

N/A 

C2 

Coefficient  used  in  vertical  polarization  calculations 

N/A 

Cn 

Constant  equals  Ap/k„ 

N/A 

con 

10% 

meters'1 

Ap 

Mesh  size  in  angle-  (or  p-)  space 

radians/ 

meters 

Aro» 

Output  range  step 

meters 

teFE 

PE  range  step 

meters 

^rPE2 

Vz  PE  range  step 

meters 

ten 

PE  mesh  height  increment  (bin  width  in  z-space) 

meters 

fern 

2  A zFE 

meters 

teou, 

Output  height  increment 

meters 

dielec 

Two-dimensional  array  containing  the  relative  per¬ 
mittivity  and  conductivity,  dielec,,  and  dielecZi,  re¬ 
spectively. 

N/A, 

S/m 

filt 

Cosine-tapered  (Tukey)  filter  array 

N/A 

filtp 

Array  filter  for  spectral  estimation  calculations 

N/A 

f 

J  norm 

Normalization  factor 

N/A 

fslr 

Free  space  loss  array  for  output  ranges 

dB 

gas*. 

Gaseous  absorption  attenuation  rate 

DB/km 

gr 

Intermediate  M-unit  gradient  array,  RO  region 

M-units/ 

meter 

hfangr 

Cut-back  angles 

Radians 

ht 

PE  mesh  height  array  of  size  nm 

meters 

l error 

Error  flag 

N/A 
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Table  9.  APMINIT  CSC  output  data  element  requirements.  (Continued) 


Name 

Description 

Units 

4 

Counter  indicating  current  ground  type  being 
modeled 

N/A 

Index  of  output  range  step  in  which  to  begin  storing 
propagation  factor  and  outgoing  angle  for  XO  re¬ 
gion 

N/A 

iROp 

Array  index  for  previous  range  in  RO  region 

N/A 

4» 

Number  of  height/range  points  pairs  in  profile  tx,  ty 

N/A 

L 

Number  of  range  steps  in  XO  calculation  region 

N/A 

l xosrp 

Current  output  range  step  index  for  XO  calculations 

N/A 

iz 

Number  of  propagation  factor,  range,  and  angle 
triplets  stored  in  ffacz 

N/A 

Integer  increment  for  storing  points  at  top  of  PE 
region  (i.e.,  points  are  stored  at  every  izjnc  range 
step) 

N/A 

jziim 

PE  bin  #  corresponding  to  zlim,  (i.e.,  z,m  =jz„m  A z,£) 

N/A 

K cbs 

Gaseous  absorption  calculation  flag: 

=  0;  no  absorption  loss 
=  1 ;  compute  absorption  loss  based  on  air 
temperature,  tair,  and  absolute  humidity,  abshum 
k^  =  2;  compute  absorption  loss  based  on  specified 
absorption  attenuation  rate, 

N/A 

K 

Free  space  wavenumber 

meters'1 

levels 

Number  of  levels  in  gr,  q,  and  zrt  arrays 

N/A 

X 

Wavelength 

meters 

K* 

Minimum  power  of  2  transform  size 

N/A 

lnn 

Power  of  2  transform  size  used  in  spectral  estima¬ 
tion  calculations  (i.e.,  nl>  =  2!'v) 

N/A 

K 

Antenna  pattern  elevation  angle 

radians 

Aw 

Antenna  vertical  beamwidth  in  radians 

radians 

A™ 

Limiting  angle  for  SIN(X)/X  and  generic  height 
finder  antenna  pattern  factors 

N/A 

>hu 

3/4  nffi 

N/A 

1/4  nffi 

N/A 

nffi 

N/A 

n. 

Number  of  bins  in  upper  PE  region  to  consider  for 
spectral  estimation. 

N/A 
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Table  9.  APMINIT  CSC  output  data  element  requirements.  (Continued) 


Name 

Description 

Units 

nP34 

%np 

N/A 

nP< 

i/4  n. 

N/A 

", 

Transform  size  for  spectral  estimation  calculations 

N/A 

P  elev 

Sine  of  antenna  elevation  angle 

N/A 

pL « 

Constant  used  in  determining  propagation  loss  (plM 
=  20  LOG(2  kj) 

N/A 

Grazing  angle  of  limiting  ray 

radians 

Intermediate  M-unit  difference  array,  RO  region 

M-units 

ran 

Range  at  which  zUm  is  reached  (used  for  hybrid 
model) 

meters 

rlogo 

Array  containing  20  times  the  logarithm  of  all  output 
ranges 

N/A 

rm 

Intermediate  M-unit  array,  RO  region 

M-units 

mgout 

Array  containing  all  desired  output  ranges 

meters 

rsqrd 

Array  containing  the  square  of  all  desired  output 
ranges 

meters8 

Sine  of  antenna  vertical  beam  width 

N/A 

Maximum  propagation  angle  in  PE  calculations 

radians 

75%  of  maximum  propagation  angle  in  PE  calcula¬ 
tions 

radians 

X°co„ 

Constant  used  in  determining 

N/A 

y~ 

Height  of  ground  at  current  range  r 

meters 

y  curm 

Height  of  ground  midway  between  last  and  current 

PE  range 

meters 

>w 

Ground  elevation  height  at  source 

meters 

y* 

Height  of  ground  at  previous  range,  rta„ 

meters 

xROn 

Next  range  in  RO  region 

meters 

Zlim 

Height  limit  for  PE  calculation  region 

meters 

7 

**max 

Total  height  of  the  FFT/PE  calculation  domain 

meters 

zout 

Array  containing  all  desired  output  heights  refer¬ 
enced  to 

meters 

zoutma 

Array  output  heights  relative  to  “real”  antrr/ 

meters 

zoutpa 

Array  output  heights  relative  to  “image”  antref 

meters 

zRO 

Array  of  output  heights  in  RO  region 

meters 
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Table  9.  APMINIT  CSC  output  data  element  requirements.  (Continued) 


Name 

Description 

Units 

zrt 

Intermediate  height  array,  RO  region 

meters 

z 

Height  in  PE  region  that  must  be  reached  for  hybrid 

meters 

test 

model 

Ztol 

Height  tolerance  for  Newton's  method 

meters 

5.1 .1  Allocate  Arrays  APM  (ALLARRAY_APM)  SU 

The  ALLARRAY_APM  SU  allocates  and  initializes  all  dynamically  dimensioned  arrays  associ¬ 
ated  with  APM  terrain,  refractivity,  troposcatter,  and  general  variable  arrays. 

The  ALLARRAY_APM  SU  utilizes  the  FORTRAN  ALLOCATE  and  DEALLOCATE  statements 
to  dynamically  size  arrays  previously  declared  with  the  ALLOCATABLE  attribute  in  the 
APM_MOD  MODULE  or  to  free  the  array  storage  space  previously  reserved  in  an  ALLOCATE 
statement.  Each  dimension  of  the  ALLOCATABLE  array  is  indicated  by  a  colon  in  the  APM_MOD 
module  (e.g.,  slp(:)).  The  ALLOCATE  statement  establishes  the  upper  and  lower  bounds  of  each 
dimension  and  reserves  sufficient  memory.  Because  attempting  to  allocate  a  previously  allocated 
array  causes  a  run-time  error,  each  ALLOCATE  statement  for  an  array  is  preceded  by  a  test  to  de¬ 
termine  if  it  has  been  allocated.  If  it  has,  it  is  deallocated  first  before  it  is  allocated. 

Initially,  the  integer  used  to  indicate  an  error,  iemr,  is  set  to  zero.  If  in  attempting  to  allocate  an  ar¬ 
ray,  a  value  of  iemr  other  than  zero  is  returned  by  an  ALLOCATE  statement,  then  the  SU  is  exited. 

Note  that  each  array  that  is  dynamically  allocated  in  this  SU  is  initialized  to  zero. 

Six  integers  input  to  this  SU  are  used  to  dynamically  allocate  the  arrays.  Unless  otherwise  indi¬ 
cated,  these  integers  are  used  as  the  single  dimension  of  the  dynamically  allocated  array.  The  first, 
i  r,  is  the  number  of  different  ground  types  specified.  The  second,  itpa,  is  the  number  of  terrain  points 
used  internally  in  arrays  tx  and  ty.  The  third,  Ivlp,  is  the  number  of  levels  in  the  refractivity  profile. 
The  fourth,  n  is  the  number  of  user-defined  cut-back  antenna  pattern  factors  for  the  user-defined 
height-finder  antenna  type.  The  fifth,  nroa,  is  the  integer  number  of  output  range  points  desired.  And 
finally,  the  sixth,  nmt,  is  the  integer  number  of  output  height  points  desired. 

Table  10  provides  the  definitions  of  arrays  allocated  in  this  SU.  The  only  array  that  is  allocated 
using  the  integer  nfaa  is  hfangr.  The  arrays  that  are  allocated  using  the  integer  nmm  are:  rsqrdjslr, 
rlogo,  and  mgout.  The  arrays  that  are  allocated  using  the  integer  nzout  are  zout,  zro,  zoutma,  zoutpa, 
hlim,  htfe,  rfac\,  rfacl,  and  rloss. 

The  arrays  associated  with  terrain  information  use  either  the  integer  iipa  or  the  integer  igr.  The  ar¬ 
rays  that  are  allocated  with  the  integer  itpa  are:  tx,  ty,  and  sip.  The  arrays  allocated  using  the  integer  igr 
are  igmd,  rgmd,  and  cn2.  The  array  dielec  is  allocated  using  two  as  the  first  dimension  and  igr  as  the 
second  dimension. 

The  arrays  associated  with  refractivity  information  use  either  the  integer,  Ivlp,  or  the  integer,  Ivlpt. 
The  integer  Ivlpt  is  equal  to  the  integer  Ivlp  plus  one.  The  arrays  allocated  using  the  integer  Ivlp  are 
refdum,  htdum,  href,  and  refref.  The  arrays  allocated  using  the  integer  Ivlpt  are  gr,  q,  rm,  and  zrt. 
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The  arrays  associated  with  the  troposcatter  calculations  use  either  integers  z  nwut,  or  nrout.  The  ar¬ 
rays  allocated  using  the  integer  itpa  are  ad\  and  tilt.  The  arrays  allocated  using  the  integer  n  in¬ 
clude  adif,  d2s,  rdt,  and  d-ls. 

Tables  10  and  1 1  identify,  describe,  and  provide  units  of  measure  and  computational  source  for 
each  input  and  output  data  element  of  the  ALLARRAY_APM  SU. 


Table  10.  ALLARRAY_APM  SU  input  data  element  requirements. 


Name 

Description 

Units 

Source 

V 

Number  of  different  ground  types  specified 

N/A 

Calling  CSCI 

hpa 

Number  of  terrain  points  used  internally  in 
arrays  tx  and  ty 

N/A 

APMINIT  CSC 

^Iropo 

Troposcatter  calculation  flag: 
ilmpo  =  0;  no  troposcatter  calcs 
ilropo  =  1 ;  troposcatter  calcs 

N/A 

Calling  CSCI 

Ivlp 

Number  of  levels  in  refractivity  profile 

N/A 

Calling  CSCI 

"foe, 

Number  of  user-defined  cut-back  angles 
and  cut-back  antenna  factors  for  user 
specified  height-finder  antenna  type 

N/A 

Calling  CSCI 

Number  of  output  height  points  desired 

N/A 

Calling  CSCI 

Number  of  output  range  points  desired 

N/A 

Calling  CSCI 

Table  11.  ALLARRAY_APM  SU  output  data  element  requirements. 


Name 

Description 

Units 

ad  I 

Array  of  tangent  ranges  from  source  height — used 
with  terrain  profile 

Meters 

adif 

Height  differences  between  antre{  and  all  output  re¬ 
ceiver  heights 

meters 

nc 

Array  of  complex  dielectric  constants 

N/A 

d2s 

Array  of  tangent  ranges  for  all  output  receiver 
heights  over  smooth  surface 

meters 

dielec 

Two-dimensional  array  containing  the  relative  per¬ 

N/A, 

mittivity  and  conductivity,  dielec u  and  dielec i(, 
respectively. 

S/m 

fslr 

Free  space  loss  array  for  output  ranges 

dB 

gr 

Intermediate  M-unit  gradient  array,  RO  region 

M-units/ 

meter 

hfangr 

Cut-back  angles 

radians 
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Table  1 1 .  ALLARRAY_APM  SU  output  data  element  requirements.  (Continued) 


Name 

Description 

Units 

hlim 

Array  containing  height  at  each  output  range  sepa¬ 
rating  the  RO  region  from  the  PE  (at  close  ranges) 
and  XO  (at  far  ranges)  regions 

meters 

href 

Heights  of  refractivity  profile  with  respect  to  yrtf 

meters 

htdum 

Height  array  for  current  interpolated  profile 

meters 

htfe 

Array  containing  the  height  at  each  output  range 
separating  the  FE  region  from  the  RO  region  (full 
hybrid  mode),  or  the  FE  region  from  the  PE  region 
(partial  hybrid  mode) 

meters 

^  error 

Integer  variable  indicating  error  number  for 
ALLOCATE  and  DEALLOCATE  statements 

N/A 

igmd 

Integer  array  containing  ground  type  composition  for 
given  terrain  profile — can  vary  with  range.  Different 
ground  types  are: 

0  =  Seawater 

1  =  Freshwater 

2  =  Wet  ground 

3  =  Medium  dry  ground 

4  =  Very  dry  ground 

5  =  Ice  at  -1  degree  C 

6  =  Ice  at  -10  degree  C 

7  =  User  defined  (in  which  case,  values  of  relative 
permittivity  and  conductivity  must  be  given). 

N/A 

<1 

Intermediate  M-unit  difference  array,  RO  region 

M-units 

rdt 

Array  of  minimum  ranges  at  which  diffraction  field 
solutions  are  applicable  (for  smooth  surface)  for  all 
output  receiver  heights. 

meters 

refdum 

M-unit  array  for  current  interpolated  profile 

M-units 

refref 

Refractivity  profile  with  respect  to  yrtf 

M-units 

rfacl 

Propagation  factor  at  valid  output  height  points  from 
PE  field  at  range,  rto. 

dB 

rfac2 

Propagation  factor  at  valid  output  height  points  from 
PE  field  at  range,  r 

dB 

rgmd 

Array  containing  ranges  at  which  varying  ground 
types  apply. 

meters 

rlogo 

Array  containing  20  times  the  logarithm  of  all  output 
ranges 

N/A 

rloss 

Propagation  loss 

dB 

rm 

Intermediate  M-unit  array,  RO  region 

M-units 
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Table  1 1 .  ALLARRAY_APM  SU  output  data  element  requirements.  (Continued) 


Name 

Description 

Units 

mgout 

Array  containing  all  desired  output  ranges 

meters 

rsqrd 

Array  containing  the  square  of  all  desired  output 
ranges 

meters2 

sip 

Slope  of  each  segment  of  terrain 

N/A 

$it 

Array  of  tangent  angles  from  source  height — used 
with  terrain  profile 

radians 

m 

Array  of  angles  used  to  determine  common  volume 
scattering  angle 

radians 

ms 

Array  of  tangent  angles  from  all  output  receiver 
heights— used  with  smooth  surface 

radians 

tx 

Range  points  of  terrain  profile 

meters 

ty 

Adjusted  height  points  of  terrain  profile 

meters 

zout 

Array  containing  all  desired  output  heights  refer¬ 
enced  to  hm„'t 

meters 

zoutma 

Array  output  heights  relative  to  “reaP  antrcf 

meters 

zoutpa 

Array  output  heights  relative  to  “image”  antrcl 

meters 

zRO 

Array  of  output  heights,  RO  region 

meters 

Zrt 

Intermediate  height  array,  RO  region 

meters 

5.1.2  Allocate  Array  PE  (ALLARRAY_PE)  SU 

The  ALLARRAY_PE  SU  allocates  and  initializes  all  dynamically  dimensioned  arrays  associated 
with  PE  calculations. 

The  ALLARRAY_PE  SU  utilizes  the  FORTRAN  ALLOCATE  and  DEALLOCATE  statements  to 
dynamically  size  arrays  previously  declared  with  the  ALLOC  AT ABLE  attribute  in  the  APM_MOD 
module  or  to  free  the  array  storage  space  previously  reserved  in  an  ALLOCATE  statement.  Each 
dimension  of  the  ALLOCATABLE  array  is  indicated  by  a  colon  in  the  APM_MOD  MODULE  (e.g., 
slp( :)).  The  ALLOCATE  statement  establishes  the  upper  and  lower  bounds  of  each  dimension  and 
reserves  sufficient  memory.  Because  attempting  to  allocate  a  previously  allocated  array  causes  a  run¬ 
time  error,  each  ALLOCATE  statement  for  an  array  is  preceded  by  a  test  to  determine  if  it  has  been 
allocated.  If  it  has,  it  is  deallocated  first  before  it  is  allocated. 

Initially,  the  integer  used  to  indicate  an  error,  itrror,  is  set  to  zero.  If  in  attempting  to  allocate  an  ar¬ 
ray,  a  value  of  itrror  other  than  zero  is  returned  by  an  ALLOCATE  statement,  then  the  SU  is  exited. 

Note  that  each  array  that  is  dynamically  allocated  in  this  SU  is  initialized  to  zero. 

There  are  two  integers  input  to  this  SU  that  are  used  to  dynamically  allocate  the  arrays.  Unless 
otherwise  indicated,  these  integers  are  used  as  the  single  dimension  of  the  dynamically  allocated 
array.  The  first,  nffi,  is  the  transform  size.  The  second,  n4,  is  the  transform  size  n4  divided  by  four. 
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Table  12  provides  definitions  of  the  arrays  allocated  in  this  SU.  The  arrays  that  are  allocated  using 
the  integer,  nff„  are  root,  rootm,  envprjrsp,  U,  Ulast,  ht,profint,  xdum,  ydum,  w,  and  ym.  The  only 
array  allocated  using  the  integer  n4  is  filt. 

Tables  12  and  13  identify,  describe,  and  show  the  units  of  measure  and  the  computational  source 
for  each  input  and  output  data  element  respectively  of  the  ALLARRAY_PE  SU. 


Table  12.  ALLARRAY_PE  SU  input  data  element  requirements. 


Name 

Description 

Units 

Source 

nfft 

Transform  size 

N/A 

FFTPAR  SU 

n4 

1/4  nfft 

N/A 

APMINIT  SU 

Table  13.  ALLARRAY_PE  SU  output  data  element  requirements. 


Name 

Description 

Units 

envpr 

Complex  [refractivity]  phase  term  array  interpolated 
every  A zrE  in  height 

N/A 

Ait 

Cosine-tapered  (Tukey)  filter  array 

N/A 

frsp 

Complex  free  space  propagator  term  array 

N/A 

ht 

PE  mesh  height  array  of  size  np 

meters 

l  error 

Integer  variable  indicating  error  number  for 

ALLOCATE  and  DEALLOCATE  statements 

N/A 

profint 

Profile  interpolated  to  every  A zPE  in  height 

M-units 

root 

Array  of  RT  to  the  t  power  (e.g.,  roof,.  =R‘t) 

N/A 

rootm 

Array  of  -Rr  to  the  i*  power  (e.g.,  roorm,  =  (-RT)‘) 

N/A 

U 

Complex  field  at  current  PE  range,  r 

pSH m 

Ulast 

Complex  field  at  previous  PE  range,  rlM 

/fV/m 

w 

Difference  equation  of  complex  PE  field 

/fV/m 

xdum 

Real  part  of  complex  field  array 

pSf/m 

ydum 

Imaginary  part  of  complex  field  array 

pV/m 

ym 

Particular  solution  of  difference  equation 

N/A 

5.1.3  Allocate  Array  XO  (ALLARRAY_XO)  SU 

The  ALLARRAY_XO  SU  allocates  and  initializes  all  dynamically  dimensioned  arrays  associated 
with  XO  calculations. 

The  ALLARRAY_XO  SU  utilizes  the  FORTRAN  ALLOCATE  and  DEALLOCATE  statements 
to  dynamically  size  arrays  previously  declared  with  the  ALLOCATABLE  attribute  in  the 
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APM_MOD  MODULE  or  to  free  the  array  storage  space  previously  reserved  in  an  ALLOCATE 
statement.  Each  dimension  of  the  ALLOCATABLE  array  is  indicated  by  a  colon  in  the  APM_MOD 
module  (e.g.,  slp(:)).  The  ALLOCATE  statement  establishes  the  upper  and  lower  bounds  of  each 
dimension  and  reserves  sufficient  memory.  Because  attempting  to  allocate  a  previously  allocated 
array  causes  a  run-time  error,  each  ALLOCATE  statement  for  an  array  is  preceded  by  a  test  to  de¬ 
termine  if  it  has  been  allocated.  If  it  has,  it  is  deallocated  before  it  is  allocated. 

Initially,  the  integer  used  to  indicate  an  error,  ierror,  is  set  to  zero.  If  in  attempting  to  allocate  an  ar¬ 
ray,  a  value  of  ienor  other  than  zero  is  returned  by  an  ALLOCATE  statement,  then  the  SU  is  exited. 

Note  that  each  array  that  is  dynamically  allocated  in  this  SU  is  initialized  to  zero. 

There  are  five  integers  input  to  this  SU  that  are  used  to  dynamically  allocate  the  arrays.  Unless 
otherwise  indicated,  these  integers  are  used  as  the  single  dimension  of  the  dynamically  allocated 
array.  The  first  of  these  is  iz^,  the  maximum  number  of  points  allocated  for  arrays  associated  with 
XO  calculations.  The  second  is  n^,  1/4  of  the  number  of  points,  np,  used  in  the  top  part  of  the  PE 
region  for  spectral  estimation.  The  third  is  nnut,  the  integer  number  of  output  range  points  desired. 
The  fourth  is  Ivlp,  the  number  of  points  in  the  refractivity  profile.  And  the  last  is  ns,  the  transform 
size  used  in  spectral  estimation  calculations  (i.e.,  n=2'”r).  The  integer,  lnp,  is  the  power  of  2  trans¬ 
form  size  used  in  spectral  estimation  calculations. 

Table  14  provides  definitions  of  the  arrays  allocated  in  this  SU.  The  array,  j ffrout,  is  allocated  us¬ 
ing  the  integer  two  as  the  first  dimension  and  the  integer,  nrout,  as  the  second  dimension.  The  number 
three  is  used  as  the  first  dimension  limit,  and  the  integer,  iz^,  is  used  as  the  second  dimension  in  the 
allocation  of  the  array,  ffacz.  Both  of  the  arrays,  grad  and  htr,  are  allocated  with  the  first  dimension 
given  by  Ivlp  and  the  second  dimension  given  by  izmax.  The  array,  Ivl,  is  allocated  using  the  integer, 
izm The  array ,filtp,  is  allocated  using  the  integer,  n^.  The  three  arrays,  xp,  yp,  and  spectr  are  allo¬ 
cated  using  the  integer,  ns. 

Tables  14  and  15  identify,  describe,  and  provide  the  units  of  measure  and  computational  source  for 
each  input  and  output  data  element  of  the  ALLARRAY_XO  SU. 


Table  14.  ALLARRAY_XO  SU  Input  data  element  requirements. 


Name 

Description 

Units 

Source 

a**. 

Maximum  number  of  points  allocated  for 
arrays  associated  with  XO  calculations 

N/A 

APMINIT  CSC 

Ivlp 

Number  of  height/refractivity  levels  in 
profiles 

N/A 

Calling  CSCI 

nK 

*n. 

N/A 

APMINIT  CSC 

Integer  number  of  output  range  points 
desired 

N/A 

Calling  CSCI 

ns 

Transform  size  for  spectral  estimation 
calculations 

N/A 

APMINIT  CSC 
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Table  15.  ALLARRAY_XO  SU  Output  data  element  requirements. 


Name 

Description 

Units 

ffrout 

Array  of  propagation  factors  at  each  output  range 
beyond  rai  and  at  height 

dB 

filtp 

Array  filter  for  spectral  estimation  calculations 

N/A 

grad 

Two-dimensional  array  containing  gradients  of 
each  profile  used  in  XO  calculations 

M-units/ 

meter 

htr 

Two-dimensional  array  containing  heights  of  each 
profile  used  in  XO  calculations 

meters 

^error 

Integer  variable  indicating  error  number  for 
ALLOCATE  and  DEALLOCATE  statements 

N/A 

Ivl 

Number  of  height  levels  in  each  profile  used  in  XO 
calculations 

N/A 

spectr 

Spectral  amplitude  of  field 

dB 

xp 

Real  part  of  spectral  portion  of  PE  field 

dB 

yp 

Imaginary  part  of  spectral  portion  field 

dB 

5.1.4  Antenna  Pattern  (Antpat)  SU 

The  ANTPAT  SU  calculates  an  antenna  pattern  factor  (normalized  antenna  gain), /a),  for  a  speci¬ 
fied  antenna  elevation  angle,  a.  Currently,  antenna  pattern  factors  are  included  for  six  types  of  anten¬ 
nas.  These  patterns  include  an  omni-directional  (ipa =1)  type,  a  Gaussian  (ipat= 2)  type,  a  Sin(X)/X  (ipal 
=3)  type,  a  cosecant-squared  (ipa,  =4)  type,  a  generic  height-finder  (ipal  =5)  type,  and  a  user-defined 
height-finder  type  (1^,=  6). 

From  two  antenna  pattern  parameters,  cij-ac  and  pelm,  the  antenna  beam  width,  fifjWr  and  elevation 
angle,  fior  a  specified  angle,  a,  for  which  the  antenna  pattern  factor  is  desired,  and  the  antenna  radia¬ 
tion  pattern  type,  ipaV  the  antenna  factor  is  calculated  as  follows. 

If  the  antenna  pattern  is  omni-directional,  then/ (a)  =  1  .  If  the  antenna  pattern  is  Gaussian,  then 

f(a)  =  e~a/ac{SmayPelev)2 . 

If  the  antenna  pattern  is  cosecant-squared,  compute  the  elevation  angle  relative  to  the  antenna  ele¬ 
vation  angle  as 


&  pat  =  a  ~  Vor  ■ 


The  antenna  pattern  is  now  given  as 

/(“)=s5^)  f0!ap<«>n»r. 
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/(«)= AMIN 


1,  AMAxjo.03, 

11 

1 

l^bwr  _ 

JJ 

for  apat  <  0, 


/  ( a)  =  1  otherwise, 

where  sbw  is  determined  in  the  APMINTT  CSC. 

If  the  antenna  pattern  is  Sin(X)/X,  a  generic  height-finder,  or  a  user-specified  height-finder,  the 
following  calculations  are  made. 


1 .  The  elevation  angle  relative  to  the  antenna  elevation  angle,  apat,  is  determined  as  in  the  previ¬ 
ous  definition.  If  the  antenna  radiation  pattern  type  is  a  generic  or  user-specified  height- 
finder,  the  radiation  pattern  is  simulated  as  a  Sin(X)/X  type  with  the  elevation  angle  adjusted 
to  account  for  the  current  pointing  angle  of  the  main  beam,  %.  %  is  set  to  the  direct-path  ray 
angle,  ad,  if  ad  is  greater  than  the  antenna  elevation  angle  jlor ;  otherwise,  %  is  set  to  the  ele¬ 
vation  angle.  In  this  case,  0Cpat  =  a  -  % 


2.  The  antenna  pattern  is  now  given  as 


/(«)  =  1 


for  apat 


<  IQ'6; 


/(«)  = 


SINja,.,  SIN(ap.))  ^ 

- i - fQr 

afac  SIN(apat) 


otherwise,  /  (a)  =  0. 

3.  For  a  user-defined  height-finder,  the  pattern  factor  is  further  adjusted  by  a  power  reduction 
factor,  hffacp  as 

f(cc)  =  f(a)hjfaci 

where  i  is  an  angle  counter,  decremented  by  one  from  the  number  of  power  reduction  angles, 
nfacs ,  for  each  power  reduction  angle,  hfangr{,  which  exceeds  %. 

Tables  16  and  17  identify,  describe,  and  provide  the  units  of  measure  and  computational  source  for 
each  input  and  output  data  element  of  the  ANTPAT  SU. 


Table  16.  ANTPAT  SU  input  data  element  requirements. 


Name 

Description 

Units 

Source 

afac 

Antenna  pattern  parameter 
(depends  on  ipat  and  pbw) 

N/A 

APMINIT  CSC 

a 

Elevation  angle  at  transmitter 

radians 

Calling  SU 

Direct  ray  elevation  angle 

radians 

FEM  SU 
ROCALC  SU 

hfangr 

Cut-back  angles 

radians 

Calling  CSCI 
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Table  16.  ANTPAT  SU  input  data  element  requirements.  (Continued) 


Name 

Description 

Units 

Source 

hjfac 

Cut-back  antenna  pattern  factors 

N/A 

Calling  CSCI 

*-pat 

Antenna  pattern  type 
ipat- 1:  Omni-directional 

ipat  =  2:  Gaussian 
ipat  =  3:  Sine(x)/x 
ipat  =  4:  Cosecant-squared 
ipat  =  5:  Generic  height-finder 
ipat  =  6:  User-defined  height- 
finder 

N/A 

Calling  CSCI 

/u 

Antenna  pattern  elevation  angle 

radians 

APMINIT  CSC 

Aw 

Antenna  vertical  beam  width 

radians 

APMINIT  CSC 

Anutt 

Limiting  angle  for  Sin(X)/X  and 
generic  height  finder  antenna 
pattern  factors 

radians 

APMINIT  CSC 

Number  of  user-defined  cut-back 
angles  and  cut-back  pattern  fac¬ 
tors 

N/A 

Calling  CSCI 

Pel* 

Sine  of  antenna  elevation  angle 

N/A 

APMINIT  CSC 

s*. 

Sine  of  antenna  vertical  beam 
width 

N/A 

APMINIT  CSC 

Table  17.  ANTPAT  SU  output  data  element  requirements. 


Name 

Description 

Units 

/(«) 

Antenna  pattern  factor  for  speci¬ 
fied  elevation  angle,  a 

N/A 

5.1 .5  Dielectric  Initialization  (Dielnit)  SU 

The  DEEINIT  SU  determines  the  conductivity  and  relative  permittivity  as  a  function  of  frequency 
in  MHz  based  on  general  ground  composition  types. 

The  DTF.TNTT  SU  supports  the  following  general  ground  types:  saltwater,  freshwater,  wet  ground, 
medium  dry  ground,  very  dry  ground,  ice  at  -1°C,  ice  at  -10°C,  and  user-defined.  For  all  ground 
types  other  than  “user-defined,”  the  permittivity  and  conductivity  are  calculated  as  functions  of  fre¬ 
quency  from  curve  fits  to  the  permittivity  and  conductivity  graphs  shown  in  the  Recommendations 
and  Reports  of  the  International  Radio  Consultative  Committee  (CCIR,  1986).  For  the  t  input 
ground  type  case,  igmdn  the  permittivity,  £r ,  and  conductivity,  cr ,  are  determined  as  described  in 

the  following  subsections. 
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For  salt  water  (case  0),  the  relative  permittivity  is  given  by  70  for  fm,  <  2253.5895 ,  and  the  con¬ 
ductivity  is  given  by  5.0  S/m  for  f^,  <  1 1 06.207 .  For  f^,  >  2253.5895 ,  the  relative  permittivity 
is  given  by 


1.41 14535  x  10~2  -  5.2122497  x  lO’8/^  +  5.8547829  x  10 “"/L 
-  7.6717423  x  lO-16/^  +2.9856318  x  10 


F°r  fmiz  >  1 106.207 ,  the  conductivity,  cr ,  in  S/m  is  given  by 


3.8586749  +  9.1253873  x  10 + 1,530992  x  10~8/^ 

1.-2.1 179295  x  IO^/m*  +  6.5727504  x  10'lo/ik  - 1.9647664  x  lO'15/^ 


For  freshwater  (case  1),  the  relative  permittivity,  sr,  is  given  by  80  for  fm.  <  6165.776 .  For 
higher  frequencies,  er  is  given  by 


79.027635  -  3.5486605  x  lO-4/^  +  8.210184  x  10'9/^ 

Sr  ”  1.-22083308  x  lO"5/^  +2.7067836  x  1 0'9  f2MH:  -1.0007669  x  10 ' 


For  fMHZ  >  5776.157 ,  the  conductivity,  a  ,  in  S/m  is  given  by 

_  ( -.657503 5 1  +  6.6 1 1 3 1 98  x  1 0~4  + 1,48 76952  x  1 0'9  } 2 

a  l  1.+5.5620223x10-5/a^z+ 3-0140816  xlO'10/^  > 

For  fMHZ  <  5776.157 ,  the  conductivity,  a  ,  in  S/m  is  given  by 

_  ( 201.97103  + 1.2197967  x  lO"2/^  - 1.728776  x  10~6/^; Y 
1.-2.5539582 x lO"3/^.  - 3.7853169 x lO5/^.  j  ' 

For  wet  ground  (case  2),  the  relative  permittivity,  zr,  is  given  by  30  for  fMH_  <  1312.054 .  For 
1312.054  <  f^n.  <  4228.1 1 ,  the  relative  permittivity,  er,  is  given  by 


s„  = 


857.94335  +  5.5275278  x  10'V^ 


1.-8.9983662  x  10 '7^  +  8.8247139  x  10~8/, 


MHz 
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For  fm.  >  4228.1 1 ,  the  relative  permittivity,  er,  is  given  by 


_  /915.31026- 4.0348211  xlO'3/^  +  7.4342897 x  10'7/^ 

Sr  “  y  1.-9.4530022  x  10“6/^  +  4.892281  x  lO'8/^ 

For  fm,  >  15454.4 ,  the  conductivity,  a  ,  in  S/m  for  wet  ground  is  given  by 

a  =  0.8756665  +  4.7236085  x  lO-5/*®  +2.6051966  x  10'8/^ 

-  9.235936  x  10 -'7*  + 1.4560078  x  lO"17/^ 

- 1.1 129348  x  10-22/^  +  33253339  x  lO’28/^ . 

For  ftm  <  15454.4 ,  the  conductivity,  a  ,  in  S/m  for  wet  ground  is  given  by 

J  MHz 

a  =  5.59909 69  x  10"3  +  8.7798277  x  10 ~5  fmz  +  6.2451017  x  10 r8/^ 

-  7.1317207  xlO-12/^  +  4.2515914  x  10'16/^ 

- 1.240806  x  10-20/^  + 1.3854354  x  10 r25/^ . 

For  medium  dry  ground  (case  3),  the  relative  permittivity,  sr,  is  given  by  15  for 
/  <  4841.945 .  For  fMHz  >  4841.945 ,  the  relative  permittivity,  sr,  is  given  by 

__  1215.87521  -  2.6151055  x  lO'3/^  + 1.9484482  x  10'7/^ 
er~]j  1.-7.6649237  x  lO"5/^  +1.2565999  x  10 f2m: 

At  <  4946.751  for  medium  dry  ground,  the  conductivity,  a  ,  in  S/m  is  given  by 

J  MHz 

a  =  (2.4625032  x  10"2  + 1.8254018  x  10 ^  fm:  -  2.664754  x  10"8/^r 
+  7.6508732  x  lO'12/^  -  7.4193268  x  lO'16/^)2  • 

For  fm_  >  4946.751 ,  for  medium  dry  ground,  the  conductivity  a  in  S/m  is  given  by 

a  =  (0.17381269  + 1.2655183  x  lO-4/^  -1.6790756  x  lO'Vik 
+ 1.1037608  x  10 ',4/^  -  2.9223433  x  10"20  fMH:)2 . 

For  very  dry  ground  (case  4),  the  relative  permittivity,  sr,  is  given  by  3  and  the  conductivity,  a  , 
in  S/m  is  0.0001  for  fMH:  <  590.8924 .  For  590.8924  <  <  7131.933 ,  the  conductivity,  a  ,  in 

S/m  is  given  by 
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ct  =  2.2953743  x  10"4  -  8.1212741  x  10 ~n  fmz  + 1.8045461  x  10“9/^ 

- 1.960677  x  lO'12/^  + 1.256959  x  10 ~15/^  - 4.4681 1  x  10',9/^; 

+  9.4623158  x  10‘23/^;  -1.1787443  x  Wlb  fm._  +  7.9254217  x  10 
-  22088286x1  O'35 

For  /*»  >  7131.933  MHz,  the  conductivity  a  in  S/m  is  given  by 

a  =  (-4.9560275  x  10~2  +  2.9876572  x  10 ~5fm:  -  3.0561848  x  10"10/^ 

+  1.1131828  xl0~'5/^)2. 

For  ice  at  -1°C  (case  5),  the  relative  permittivity,  sr,  is  3  for  all  frequencies,  and  the  conductivity, 
G  » for  /mhz  ^30°  - is  §iven  by 

3.8814567  x  IQ'5  +9.878241  x  lO-6/^  +  7.9902484  x  10~8/^ 

1+8.467523  x  10 ~2  fmz  -9.736703  x  10'5/^  +3.269059  x  10“7/^  ’ 

and  for  fMH,  >300  is  given  by 

_  12434792  x  10^  +  8.680839  x  lO-7/^.  +  72701689  x  IQ"11/^,  -2.6416983  x  lO"14/^.  +137552  x  10~18/^. 

G  "  1  +  2.824598  x  10^/^-6.755389  x  10"8/^  + 2.8728975  x  10'l2/^;- 1-8795958  x  lO'18/^ 

For  ice  at  -10°C  (case  6),  the  relative  permittivity,  sr,  is  3  for  all  frequencies,  and  the  conductiv¬ 
ity,  a  ,  for  fMHz  <8753398,  is  given  by 

_ 1 _ 

^  ~  (51852.543+389.58894 /^(l- 8.1212741  x  lO'7/^  +6.832108  x  10 f2^)  ’ 

and  for  fMH,  >8753398 ,  is  given  by 

a  =4.13105  x  10"5  +2.03589  x  lO-7/^  -3.1739  x  10'12/^  +4.52331  x  10 ~11  . 

For  the  user-defined  ground  type  (case  7),  the  relative  permittivity,  er ,  and  the  conductivity,  a  , 
in  S/m  are  set  equal  to  the  input  values,  dielec , .  and  dielec2i,  respectively. 

Finally,  the  complex  dielectric  constant  is  given  by 

ncf  =s„.  +  60A.Q,.;  for  i  =  1,2,3 ,...igr. 


42 


Tables  18  and  19  identify,  describe,  and  provide  the  units  of  measure  and  computational  source  for 
each  input  and  output  data  element  of  the  DIEINIT  SU. 


Table  18  DIEINIT  SU  input  data  element  requirements. 


Name 

Description 

Units 

Source 

dielec 

Two-dimensional  array  containing 
the  relative  permittivity  and  con¬ 
ductivity,  dielecu  and  dielecu,  re¬ 
spectively. 

N/A, 

S/m 

Calling  CSCI, 
DIEINIT  SU 

f MHz 

Frequency 

MHz 

APM_MOD 

V 

Number  of  different  ground  types 
specified 

N/A 

Calling  CSCI 

igmd 

Integer  array  containing  ground 
type  composition  for  given  terrain 
profile  -  can  vary  with  range. 
Different  ground  types  are: 

0  =  Seawater 

1  =  Freshwater 

2  =  Wet  ground 

3  =  Medium  dry  ground 

4  =  Very  dry  ground 

5  =  Ice  at  -1  degree  C 

6  =  Ice  at  -10  degree  C 

7  =  User  defined  (in  which  case, 
values  of  relative  permittivity  and 
conductivity  must  be  given). 

N/A 

Calling  CSCI 

rgmd 

Array  containing  ranges  at  which 
varying  ground  types  apply. 

meters 

Calling  CSCI 

Table  19.  DIEINIT  SU  output  data  element  requirements. 


Name 

Description 

Units 

2 

nc 

Array  of  complex  dielectric  constants 

N/A 

5.1 .6  Fast-Fourier-Transform  (FFT)  SU 

The  FFT  SU  separates  the  real  and  imaginary  components  of  the  complex  PE  field  into  two  real 
arrays  and  then  references  the  SINFFT  SU  to  transform  each  portion  of  the  PE  solution. 

For  a  transform  size,  n^,  the  real  and  imaginary  parts  of  the  complex  PE  field  array,  U,  respec¬ 
tively,  are  found  for  the  index,  i,  from  0  to  n^: 

xdumi  =  REAL  (  Ui ) 
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and 


ydumi  =  IMAG  (£/,  ). 


The  SINFFT  SU  is  referenced,  in  turn,  for  xdum  and  ydum  along  with  lnffl ,  the  power  of  the  trans- 

f  In  re.  ^ 

=  2  # 


form  size  to  the  base  2 


lfft 


.  The  real  and  imaginary  parts  of  the  resulting  transform 


arrays  are  then  converted  to  the  complex  array,  U,  for  i  equal  0  to  nffM 

Ui  =  CMPLX  (  xdumi ,  ydumi  )  . 

Tables  20  and  21  identify,  describe,  and  provide  units  of  measure  and  computational  source  for 
each  input  and  output  data  element  of  the  FFT  SU. 


Table  20.  FFT  SU  input  data  element  requirements. 


Name 

Description 

Units 

Source 

lnffl 

Power  of  2  transform  size 
(i.e.  rifft  =  2'"“) 

N/A 

FFTPAR  SU 

nffi 

Transform  size 

N/A 

FFTPAR  SU 

u 

Complex  field  to  be  transformed 

pV/m 

Calling  SU 

Table  21 .  FFT  SU  output  data  element  requirements. 


Name 

Description 

Units 

U 

Transform  of  complex  field 

pV/m 

5.1.7  FFT  Parameters  (FFTPAR)  SU 

The  FFTPAR  SU  determines  the  required  transform  size  based  on  the  maximum  PE  propagation 
angle  and  the  maximum  height  needed.  If  running  in  full  or  partial  hybrid  modes,  the  maximum 
height  is  the  height  necessary  to  encompass  at  least  20  percent  above  the  maximum  terrain  peak 
along  the  path  or  the  highest  trapping  layer  specified  in  the  environment  profiles,  whichever  is 
greater.  If  running  in  a  PE-only  mode,  the  maximum  height  is  the  specified  maximum  output  height. 

For  computational  efficiency  reasons,  an  artificial  upper  boundary  is  established  for  the  PE  solu¬ 
tion.  To  prevent  upward  propagating  energy  from  being  "reflected"  downward  from  this  boundary 
and  contaminating  the  PE  solution,  the  PE  solution  field  strength  is  attenuated  or  "filtered"  above  a 
certain  height  to  ensure  that  the  field  strength  just  below  this  boundary  is  reduced  to  zero.  The  bin 
width  in  z-space,  A zPE,  is  found  from 

_  05  X 

AlpE  _  siN(e„)' 

where  X  is  the  wavelength  in  meters  and  0^  is  the  maximum  propagation  angle  in  radians. 
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The  flag,  i^,  is  used  to  determine  maximum  FFT  size  based  on  a  given  ©^  and  the  height  needed 
to  reach  zlm. 

For  =  0,  the  constants,  lnfft,  nffi,  and  z_  are  found  from  In ^ 

n  =  2fo# 

nffi  L  ' 

Zmax  =nfft&.PE-> 

where  In^  is  the  minimum  power  of  2  transform  size.  For  smooth  surface  and  frequencies  less  than 
or  equal  to  3000  MHz,  In^is  initialized  to  9;  for  all  other  cases  it  is  set  to  10.  Next,  the  transform  size 
needed  to  perform  calculations  to  a  test  height,  z,,  is  determined.  First,  z,  is  set  equal  to  ziim  minus  10'3. 
Then  a  DO  WHILE  loop  is  executed  as  long  as  the  condition  %  z^  <  z,  is  satisfied.  Within  this  DO 
WHILE  loop,  z^  is  found  from 

In =ln#+ 1, 

H  fft  L  » 

Zmaz  =nffiAZpE- 

For  the  case  where  i^=l,  no  iteration  needs  to  be  performed.  The  variable,  zlim,  is  determined  by  a 
given  lnff  and  ©^  from  equations  shown  above. 

Upon  exiting,  z^  is  computed  as  3A  zM.. 

Tables  22  and  23  identify,  describe,  and  provide  units  of  measure  and  computational  source  for 
each  input  and  output  data  element  of  the  FFTPAR  SU. 


Table  22.  FFTPAR  SU  input  data  element  requirements. 


Name 

Description 

Units 

Source 

V* 

Flag  indicating  whether  to  determine 
maximum  FFT  size,  based  on  given 

0^  and  Zto,  or  determine  zfc  based  on 
given  ©„„  and  FFT  size  n^. 

N/A 

Calling  SU 

A 

Wavelength 

meters 

Calling  SU 

Minimum  power  of  2  transform  size 

N/A 

Calling  SU 

0 

max 

Maximum  propagation  angle  in  PE  cal¬ 
culations 

radians 

Calling  SU 

Maximum  height  region  where  PE  solu¬ 
tion  is  valid 

meters 

Calling  SU 
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Table  23.  FFTPAR  SU  output  data  element  requirements. 


Name 

Description 

Units 

Bin  width  in  z  space 

meters 

Power  of  2  transform  size  (i.e.  n^t  -  2V) 

N/A 

nfft 

Transform  size 

N/A 

Zlim 

Maximum  height  region  where  PE  solution  is 
valid 

meters 

z 

** max 

Total  height  of  the  FFT/PE  calculation  do¬ 
main 

meters 

5.1 .8  Fill  Height  Arrays  (FILLHT)  SU 

The  FILLHT  SU  calculates  the  effective  earth  radius  for  an  initial  launch  angle  of  5°  and  fills  an  ar¬ 
ray  with  height  values  at  each  output  range  of  the  limiting  submodel,  depending  on  which  mode  is 
used.  If  running  in  a  full  hybrid  mode,  the  array  contains  height  values  at  each  output  range  separat¬ 
ing  the  PE  from  the  RO  region.  If  running  in  partial  hybrid  or  PE-only  modes,  the  array  contains 
those  height  values  at  each  output  range  at  which  the  initial  launch  angle  has  been  traced  to  the 
ground  or  surface.  These  height  values  represent  the  separating  region  where,  above  that  height,  valid 
loss  is  computed,  and  below  that  height,  no  loss  is  computed.  This  is  done  so  that  only  loss  values 
that  fall  within  a  valid  calculation  region  are  output. 

Upon  entering  the  SU,  internal  one-line  ray  trace  functions  are  defined  as 

RADA  l(a,b) =a2+2  grd  b, 

RP  (a,b)=a+—, 

Srd 

AP(a,b)=a+bgrd, 

HP  (a,b)=a+^-^~ 

2grd 


for  general  parameters  a,  b,  c,  and  refractivity  gradient,  grd. 

For  the  case  when  ihybj=  1  (full  hybrid  mode),  the  height  values  at  each  output  range  separating  the 
PE  region  from  the  RO  region  is  determined.  The  ray  defined  by  a  5°  elevation  angle  is  traced  up  to 
the  maximum  height,  htUm,  to  define  the  effective  earth  radius.  The  initial  angle  and  range,  a0  and  r0,  at 
the  start  of  the  ray  trace  step  are  set  equal  to  5°  and  zero,  respectively.  The  refractivity  level  index,  i, 
is  also  initialized  to  zero.  Then  a  DO  WHILE  loop  is  executed  so  long  as  the  two  conditions,  ( zrtM  < 
ht £m)  and  (i  <  levels),  are  satisfied.  Within  this  loop,  the  angle  at  the  end  of  the  trace,  av  is  found  from 

a,  =  RADA  1  {a0 ,  zrtM  -  zrtt )  , 

where  the  gradient  of  the  current  refractivity  layer  being  traced,  grd,  is  given  by  gr..  The  range  at  the 
end  of  the  trace,  r,,  is  found  from 
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where  as  is  5°  expressed  as  radians  (i.e,  0.087266  radians). 

Finally,  the  height  array,  htfe,  is  determined  as  follows.  The  temporary  variable,  yar>  is  found  from 

y«.=  > W  antv 

where  the  parameter,  yM,  is  the  ground  elevation  height  at  the  source,  and  antht  is  the  transmitting 
antenna  height  above  the  local  ground  at  range  0.  Then  the  values  of  htfei  are  determined  (with  in¬ 
dex,  i,  having  values  from  1  to  nroJ  by 

htfei  =  y M ;  f°r  mgouti  <  rm 

htfe,  =  AMIN  (htlim,  AMAX  {yfref,  yar  + 15  mgout,})-,  for  mgout,  >rtsl , 

where  rm  is  a  constant  range  of  2,500  meters,  t5  is  the  tangent  of  5°,  and  rngouti  is  the  output  range  at 
every  i*  range  step. 

For  partial  hybrid  (PE  plus  XO)  or  PE-only  modes,  the  initial  launch  angle  is  traced  until  it  hits  the 
surface,  storing  heights  traced  at  each  output  range. 

First,  several  variables  are  initialized.  The  angle  at  the  start  of  the  trace,  a0,  is  set  to  -ahurich  (deter¬ 
mined  in  the  GETTHMAX  SU),  the  initial  range,  r0,  is  set  equal  to  zero,  and  the  height  at  the  start  of 
the  ray  trace  step,  h0,  is  set  equal  to  antref.  The  index,  Z,  indicating  the  location  of  the  source  height  in 
array,  zrt,  is  set  equal  to  the  index,  ismn.  Finally,  the  index;  is  set  equal  to  one. 

The  following  steps  (1  through  3)  are  performed  until  the  ray  has  reached  the  surface  or  the  ray 
has  been  traced  to  r^,  whichever  comes  first. 

1 .  The  output  range  to  trace  to  ro  is  initialized  to  mgoutj,  and  htfei  is  initialized  to  0. 

2.  Now,  the  following  steps  (a  through  c)  are  performed  until  r()  has  reached  ro,  the  ray  has 
turned  around  within  a  refractive  layer,  or  the  ray  has  hit  the  surface,  whichever  comes  first. 
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a.  The  range  at  the  end  of  the  ray  trace  step,  r,,  is  initialized  to  ro.  Then,  if  a0  is  less  than 
zero,  the  reff activity  gradient,  gri  is  set  equal  to  grlv  The  angle  and  height  at  the  end  of 
the  trace  step,  a,  and  h{,  are  now  given  by 

«i  =  AP(a0,  rx  -  r0), 

\  =  HP^.Oj,^). 

b.  For  negative  angle  values  of  a,,  the  height,  hv  is  now  checked  to  determine  if  the  ray  has 
been  traced  through  a  lower  refractive  layer.  If  so,  the  index,  l,  is  decremented  by  one  and 
hy  is  now  set  to  zrtr  Finally,  the  variables,  a,  and  rv  are  re-computed  as 

=  -^RADAl^/t,  -  fy,), 
ri  =RP(^o>fli  -  «o)- 

c.  a0,  r0,  and  h0  are  now  set  equal  to  the  values  of  av  r,,  and  hv  respectively.  If  one  of  the 
conditions  in  step  2  has  been  met,  then  the  SU  proceeds  to  step  3;  otherwise,  steps  2a 
through  2c  are  repeated. 

3.  The  ray  has  now  been  traced  to  the  output  range,  rngout  and  the  height,  h0,  at  that  range  is 
stored  in  the  htfey  The  index,;,  is  incremented  by  one  and  if  the  ray  has  not  reached  the  sur¬ 
face  or  r^,  then  steps  1  through  3  are  repeated. 

Once  the  ray  trace  is  completed,  the  index  j  is  decremented  by  one  and  htfej  is  set  equal  to  hm^for 
all  remaining  output  range  steps  j  through  nroul. 

Tables  24  and  25  identify,  describe,  and  provide  units  of  measure  and  computational  source  for 
each  input  and  output  data  element  of  the  F1LLHT  SU. 


Table  24.  FILLHT  SU  input  data  element  requirements. 


Name 

Description 

Units 

Source 

^ launch 

Launch  angle  used  which,  when  traced, 
separates  the  PE  and  XO  regions  from 
the  RO  region 

radians 

GETTHMAX  SU 

ant^ 

Transmitting  antenna  height  above  local 
ground 

meters 

Calling  CSCI 

antr4 

Transmitting  antenna  height  relative  to 
the  reference  height,  h  . 

meters 

TERINIT  SU 

gr 

Intermediate  M-unit  gradient  array,  RO 
region 

(M-unit/m 
/meter)  1 0'6 

REFINIT  SU 

hmrtf 

Height  relative  to 

meters 

TERINIT  SU 

User-supplied  maximum  height  relative  to 

hmiiutr’  i-G-l  kt Urn  =  hnumtr 

meters 

TERINIT  SU 
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Table  24.  FILLHT  SU  input  data  element  requirements.  (Continued) 


Name 

Description 

Units 

Source 

f hybrid 

Integer  indicating  which  sub-models  will 
be  used: 

0  =  Pure  PE  model 

1  =  Full  hybrid  model  (PE  +  FE  +  RO  + 

XO) 

2  =  Partial  hybrid  model  (PE  +  XO) 

N/A 

GETMODE  SU 

1  start 

Array  index  for  height  in  RO  region  corre¬ 
sponding  to  antrr{ 

N/A 

REFINIT  SU 

levels 

Maximum  index  of  gr,  q,  and  zrt  arrays 

N/A 

REFINIT  SU 

"rout 

integer  number  of  the  output  range  points 
desired 

N/A 

Calling  CSCI 

mgout 

Array  containing  all  output  ranges 

meters 

APMINIT  CSC 

r's. 

Range  set  at  2.5  km  to  begin  calculation 
of  RO  values 

meters 

APM_MOD 

zrt 

Height  array  used  for  RO  calculations 

meters 

REFINIT  SU 

y'M 

Ground  elevation  height  at  the  source 

meters 

APMINIT  CSC 

Table  25.  FILLHT  SU  output  data  element  requirements. 


Name 

Description 

Units 

htfe 

Array  of  height  values  at  each  output  range 

Meters 

separating  the  PE  region  from  the  RO  region 

ta,k 

Twice  the  effective  earth’s  radius 

Meters 

5.1.9  Gaseous  Absorption  (GASABS)  SU 

The  GASABS  SU  computes  the  specific  attenuation  based  on  air  temperature  and  absolute  hu¬ 
midity.  This  SU  is  based  on  CCIR  (International  Telecommunication  Union,  International  Radio 
Consultative  Committee,  now  the  ITU-R)  Recommendation  676-1,  “Attenuation  by  Atmospheric 
Gases  in  the  Frequency  Range  1-350  GHz.” 


The  oxygen  absorption  for  15°C  air  temperature  is  computed  from 

yn  =  i0_3(r,  +t2  +  0.007 19) 


f  f  \2 

J  MHz 

1000. 


where  fUH,  is  the  frequency  in  MHz  and  the  temporary  variables,  t,  and  t2,  are  given  by 

6.09 


(1 


MHz 


1 1000. 


+  0.227 
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%2~  f 


4.81 


fMHz 

1000 


+ 1.50. 


-57.0 


A  correction  is  made  for  the  oxygen  absorption  for  the  actual  air  temperature,  which  is  given  by 

r.  =  (i.o  +  o.oi  -  iso})  r.. 

where  tair  is  the  surface  air  temperature  in  degrees  Centigrade. 

The  water  vapor  absorption  is  computed  from 

abthtm 

_ V  1UUU.  J 

10000.0 

where  the  temporary  variables,  t,,  t2,  and,  t3,  are  given  respectively  by 

3.6 


7*  = 


(0.05  +  0.0021  abs,^  +  tr  +  t2  +  absh 


U  = 


f 

Uooo. 


f_MHz 


-22.2  +  8.5 


U  = 


10.6 


f 

-  1833  |  +  9.0 

U000. 


and 


to  — 


8.9 


(fmz_  _  3254 

uooo. 


\2 


+  263 


The  total  specific  absorption  for  sea-level  air  in  dB/km  multipied  by  a  conversion  factor  for  com¬ 
puting  loss  in  dB  is  given  by 

gas,*  =  (Yo  +  7w)l0~2- 

Tables  26  and  27  identify,  describe,  and  provide  the  units  of  measure  and  computational  source  for 
each  input  and  output  data  element  of  the  GASABS  SU. 
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Table  26.  GASABS  SU  input  data  element  requirements. 


Name 

Description 

Units 

Source 

abs„mn 

Absolute  humidity  near  the  surface 

g/meter3 

Calling  CSCI 

fuH: 

Frequency 

MHz 

Calling  CSCI 

tcir 

Air  temperature  near  the  surface 

°C 

Calling  CSCI 

Table  27.  GASABS  SU  output  data  requirements. 


Name 

Description 

Units 

gasm 

Gaseous  absorption 

dB/km 

5.1.10  Get  Alpha  Impedance  (GETALN)  SU 

The  GETALN  SU  computes  the  surface  impedance  term  in  the  Leontovich  boundary  condition 
and  the  complex  index  of  refraction  for  finite  conductivity.  The  implementation  of  these  impedance 
formulas  follow  Kuttler  and  Dockery 's  method  (reference  h). 

Upon  entering  the  SU,  the  complex  refractive  index,  Rng,  is  given  by  the  square  of  the  i*  complex 
refractive  index: 


where  nc  has  been  determined  in  the  DIEINIT  SU. 

The  surface  impedance  term,  av ,  is  given  in  terms  of  the  complex  refractive  index,  RIIg,  and  free- 
space  wavenumber,  ka ,  for  both  vertical  and  horizontal  polarization,  by 


a 


foripo,=l 


a  =  iko  Rng>  f°ripoi= °. 


where  i  is  the  imaginary  number  V- 1 . 

The  determination  of  the  complex  root,  RT,  of  the  quadratic  equation  for  the  mixed  transform 
method  is  based  on  Kuttler’ s  formulation.  First,  RT  is  determined  as  follows.  For  horizontal  polari¬ 
zation,  Rt  is  given  by 

Rt  =  -fa  -  avA zPE  . 

For  vertical  polarization,  RT  is  given  by 

Rt  =  yjlO  +(a,,A Zj,EJ  -  avAzPE  . 
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Next,  the  arrays,  root  and  rootm,  are  determined  by 

root i  =  Rf,  for  i  =  0,1,2, ...  nm 
rootm,  =(-RT)\  for  i  =  0,1,2 ■ 

The  parameter,  R,  a  coefficient  used  in  the  determination  of  C,  and  C2  in  the  calling  SU,  is  found 
from 


R= 


2(1  -/£) 


The  parameters  Clx  and  C*  are  determined  as  a  function  of  the  range  step,  A rP£,  from 


iAr; 


PE 


C  =  e 

lx 


2kn 


LN  (Rt) 
l  &ZPE  ) 


and 


C2,=  e 


l^rPE  f 
-  2k0{ 


LN  (Rfy-ht^ 
&zPE 


Tables  28  and  29  identify,  describe,  and  provide  units  of  measure  and  computational  source  for 
each  input  and  output  data  element  of  the  GETALN  SU. 


Table  28.  GETALN  SU  input  data  element  requirements. 


Name 

Description 

Units 

Source 

> 

Ef 

PE  range  step 

Meters 

APMINIT  CSC 

A zPE 

Bin  width  in  z  space 

Meters 

FFTPAR  SU 

Counter  indicating  current  ground 
type  being  modeled 

N/A 

APMINIT  CSC 
PESTEP  SU 

V- 

Polarization  flag: 

0  =  Horizontal  polarization 

1  =  Vertical  polarization 

N/A 

Calling  CSCI 

K 

Free-space  wavenumber 

Meters'1 

APMINIT  CSC 

nc 

Array  of  complex  dielectric  con¬ 
stants 

N/A 

DIEINIT  SU 

nfft 

Transform  size 

N/A 

FFTPAR  SU 
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Table  29.  GETALN  SU  output  data  requirements. 


Name 

Description 

Units 

av 

Surface  impedance  term 

N/A 

Clx 

Constant  used  to  propagate  C,  by  one  range  step 

N/A 

C* 

Constant  used  to  propagate  C2  by  one  range  step 

N/A 

root 

Array  of  RT to  the  i"  power  (e.g.,  root,  =R‘r) 

N/A 

rootm 

Array  of  -RT  to  the  t  power  (e.g.,  rootm , = (-RT)') 

N/A 

R 

Coefficient  used  in  C,  and  C2  calculations. 

N/A 

Rt 

Complex  root  of  quadratic  equation  for  mixed  trans¬ 
form  method  based  on  Kuttler’s  formulation 

N/A 

5.1 .1 1  Get  Mode  (GETMODE)  SU 

The  GETMODE  SU  determines  what  execution  mode  APM  will  run  based  on  environmental  in¬ 
puts  for  the  current  application.  Based  on  inputs,  it  determines  whether  to  use  the  pure  PE  model 

(W=°). fal1  hybrid  mode  (W*1)*  orpartia1  hybrid  mode  (W=2)- 

Initially,  the  variable,  indicating  the  maximum  range  at  which  the  terrain  profile  remains  flat 
from  the  source,  is  set  equal  to  r^.  For  antenna  heights  greater  than  100  meters  above  the  local 
ground  height,  ihyMi  is  set  equal  to  0  and  the  SU  is  exited;  otherwise,  it  must  be  determined  whether 
to  use  full  or  partial  hybrid  modes. 

For  antenna  heights  less  than  100  meters,  ihybrii  is  initialized  to  1.  If  performing  a  smooth  surface 
case  (fte=\ false.’),  the  SU  is  exited;  otherwise,  it  proceeds  with  the  next  step.  A  test  is  made  to  see  if 
the  first  2500  meters  of  the  terrain  profile  are  flat.  If  it  is  not,  then  ikybrii  is  set  equal  to  2  and  the  SU  is 
exited.  However,  if  the  terrain  profile  is  flat  for  at  least  the  first  2500  meters,  then  an  iteration  is 
performed  to  determine  the  maximum  range  at  which  the  profile  remains  flat.  The  variable,  rm,  is 
then  set  to  this  value,  ihyhrid  remains  1,  and  the  SU  is  exited. 

Tables  30  and  31  identify,  describe,  and  provide  units  of  measure  and  the  computational  source  for 
each  input  and  output  data  element  of  the  GETMODE  SU. 


Table  30.  GETMODE  SU  input  data  element  requirements. 


Name 

Description 

Units 

Source 

ant* 

Transmitting  antenna  height  above  local 
ground 

meters 

Calling  CSCI 

fm 

Logical  flag  indicating  if  terrain  profile  has 
been  specified: 

.true.  =  Terrain  profile  specified 
.false.  =  Terrain  profile  not  specified 

N/A 

TERINIT  SU 

Number  of  height/range  points  pairs  in 
profile  tx,  ty 

N/A 

APMINIT  CSC 
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Table  30.  GETMODE  SU  input  data  element  requirements.  (Continued) 


Name 

Description 

Units 

Source 

Maximum  specified  range 

meters 

Calling  CSCI 

rt« 

Range  set  at  2.5  km  to  begin  calculation  of 
RO  values 

meters 

APM_MOD 

sip 

Slope  of  each  segment  of  terrain 

N/A 

TERINIT  SU 

tx 

Range  points  of  terrain  profile 

meters 

TERINIT  SU 

Table  31 .  GETMODE  SU  output  data  element  requirements. 


Name 

Description 

Units 

hybrid 

Integer  indicating  which  sub-models  will  be  used: 

0  =  Pure  PE  model 

1  =  Full  hybrid  model  (PE  +  FE  +  RO  +  XO) 

2  =  Partial  hybrid  model  (PE  +  XO) 

N/A 

V 

Maximum  range  from  the  source  at  which  the 
terrain  profile  remains  flat 

meters 

5.1.12  Get  Maximum  Angle  (GETTHMAX)  SU 

The  GETTMAX  SU  performs  an  iterative  ray  trace  to  determine  the  minimum  angle  required 
(based  on  the  reflected  ray)  in  obtaining  a  PE  solution.  The  determination  of  this  angle  depends  on 
the  particular  mode  of  execution.  For  full  and  partial  hybrid  modes,  a  ray  is  traced  up  to  a  height  that 
exceeds  at  least  20  percent  above  the  maximum  terrain  peak  along  the  path  or  the  highest  trapping 
layer  specified  in  the  environment  profiles,  whichever  is  greater.  Heights  and  angles  of  this  ray  are 
stored  at  each  output  range.  For  the  PE-only  mode,  a  ray  is  traced  for  all  heights  up  to  the  maximum 
output  height.  The  maximum  PE  propagation  angle,  0^,  is  then  determined  from  the  local  maxi¬ 
mum  angle  of  the  traced  ray.  For  the  full  hybrid  mode,  the  minimum  PE  propagation  angle  is  re¬ 
quired  to  meet  the  following  criteria:  (1)  the  top  of  the  PE  region  must  contain  all  trapping  layers  for 
all  refractivity  profiles;  (2)  the  top  of  the  PE  region  must  be  at  least  20  percent  higher  than  the  high¬ 
est  peak  along  the  terrain  profile;  and  (3)  the  minimum  PE  propagation  angle  must  be  at  least  as 
large  as  the  grazing  angle  of  the  limiting  ray,  yrlim . 

First,  four  in-line  ray-trace  functions  are  defined  for  general  parameters  a,  b,  c,  and  grJ: 

RADAl(a,  b)  =  a2  +  2  grdb, 

RP(o,  b)  =  a  +  — , 

8rd 

AP(a,b)  =  a  +  bgrd  , 

HP (a,b,c)  =  a  +  - . -  g2  . 

2  8, d 
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The  first  parameter  to  be  determined  is  the  minimum  PE  angle  limit,  a^.  The  parameter 
determined  later,  0^,  must  be  at  least  this  value.  The  initial  estimate  of  aMm  is  given  by 


^  ~f MHz  f MHz 

amlim  =  AMIN  4, 37541  + 433k  2484  +  1.42e  2867  +.409k  249S- 


Q'mlim  Zadc  &mlim 

where  r^c  is  the  constant  used  to  convert  degrees  to  radians  (i.e.,  .0174533).  Next,  a  tempo¬ 
rary  variable,  is  initialized  to  two  times  aMm  if  the  polarization  is  vertical  (7o;=l),  and  0, 
otherwise.  If  performing  a  terrain  case  (fler  is  ‘.true.’)  and  using  the  full  hybrid  mode  (4^=1), 
is  further  modified  as  a  function  of  fUHl  according  to 

amI=2.5amlim  for  fMHz  <1000, 
aml  =  2  amlim  for  1000  <  fmz  <  1500, 

=  1 50^  for  1500  <  fMHz  <  2000. 

Finally,  aMm  is  determined  from 

amiim  =  AMAX(ami,m,am;). 

Several  constants  needed  in  subsequent  steps  in  this  SU  are  determined.  An  initial  estimate 
of  the  launch  angle,  ahimch,  is  initialized  to  0'jm,  the  elevation  angle  of  the  RO  limiting  ray.  If 
using  the  full  hybrid  mode,  then  aUunch  is  set  equal  to  the  negative  of  a^.  The  maximum 
height  to  trace  to  zUml  is  set  equal  to  htlim- 10\  and  the  range  step,  A rIemp,  for  subsequent  ray 
tracing  is  given  by  r^/200.  The  terrain  elevation  height  at  the  source,  ym,  is  initialized  to  tyl 
provided  APM  is  mnning  in  a  full  hybrid  mode  and  ty1  is  greater  than  zero;  otherwise,  yM  is 
initialized  to  0. 

An  iterative  ray  trace  determines  the  launch  angle,  a^,  and  subsequently  begins.  The 
following  steps  (1  through  3)  are  performed  until  a  ray  has  been  safely  traced  from  height 

antreft°  Zlmf 

1 .  At  the  start  of  the  ray  trace,  the  current  local  angle,  (a0);  range,  (r0);  height,  (/i0);  and 
refractive  gradient  index,  (j)  are  initialized  to  ahunch,  0,  antref,  and  islart,  respectively.  The 
counter  index,  kt,  for  the  terrain  profile  arrays,  tx  and  ty,  is  initialized  to  one.  The  vari¬ 
able,  ro,  the  current  output  range  to  trace  to,  is  set  equal  to  zero.  The  following  steps  (a 
through  d)  are  then  performed  for  each  ray  trace  step  from  1  to  immp. 

a.  First,  ro  is  incremented  by  A rtmp.  Now  steps  (1)  through  (7)  are  performed  until  r0 
reaches  ro 

(1)  The  range  at  the  end  of  the  ray  trace  step,  r„  is  set  equal  to  ro,  and  the  current 
refractive  gradient,  grd,  is  set  equal  to  gr..  If  a0  is  less  than  zero,  then  gr.  is  set 
equal  to  grr 

(2)  The  angle  at  the  end  of  the  trace,  a,,  is  then  given  by 

ax  =  AP(a0,rj  -  r0) . 
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(3)  If  ax  is  of  the  opposite  sign  of  a0,  then  ax  is  set  to  zero,  and  r,  is  given  by 

n  =  RP  (*<>,«,  -a0). 

(4)  The  height  at  the  end  of  the  ray  trace,  hx,  is  given  by 

h,  =  HP(/j0,a„a0). 

(5)  If  a,  is  positive  and  hx  has  reached  or  surpassed  the  next  height  level,  then  ax, 
rx,j,  and  hx,  are  found  as  follows.  First,  hx  is  set  equal  to  zrtp  and  ax  and  rx  are 
given  by 

ax  =  ^RADAl(a0,/z,  -  h^) 
rx  =  RP  (r0,  a,  -  a0) 

then  the  index;  is  incremented  by  one,  and  the  height,  hx,  at  the  end  of  the  ray 
trace  step  is  given  by 

h,  =  AMIN  (htUm,  zrtj )  . 

(6)  However,  if  either  of  the  conditions  for  ax  and  hx  in  step  (5)  are  not  met,  and 
ax  is  less  than  or  equal  to  0,  then  hx  is  set  equal  to  ynl  if  the  calculated  value  in 
step  (4)  is  less  than  y„,+10'3.  If  the  calculated  value  of  hx  in  step  (4)  is  less  than 
zrtH+ 10'\  then  hx  is  set  equal  to  zrtpv  and  j  is  set  equal  to  AMAX  (0,  ;  - 1) . 
The  variables,  a ,  and  r,,  are  then  determined  from 

ax  =  -^RADAl(a0,/?,  -  , 

rx  =  RP(r0,a,  -  a0). 

(7)  If  the  height  at  the  end  of  the  ray  trace,  hx,  is  less  than  the  height  of  the  ter¬ 
rain,  ynt  plus  10'3,  then  the  ray  has  hit  the  surface  and  is  reflected.  In  this  case, 
ax  is  set  equal  to  minus  av  y rUm  is  set  equal  to  ax,  and  the  range,  rpest,  at  which 
loss  values  from  the  PE  model  will  start  being  calculated,  is  set  equal  to  rx.  In 
preparation  for  the  next  ray  trace  step,  h0  is  set  equal  to  hx,  r0  is  set  equal  to  rx, 
and  a0  is  set  equal  to  ax.  If  the  range  rx  is  greater  than  rflat,  then  the  current  it¬ 
eration  is  exited  and  the  SU  proceeds  to  step  b;  otherwise,  steps  (1)  through 
(7)  are  repeated  until  r0  reaches  ro. 

b.  If  running  a  terrain  case  (fKr  =  ‘.true.’),  at  the  end  of  the  ray  trace  for  the  current 
step  a  check  is  made  to  see  that  the  current  height  of  the  ray  is  at  least  20  percent 
higher  than  the  current  terrain  height.  The  counter,  kt,  is  determined  such  that  r0  > 
*Vi  and  <  V-  The  height  of  the  terrain,  yn,  at  the  current  range  for  the  traced 
ray,  is  given  by 

?«  =  12  (%  +  slpki  (r0  -  £**  )). 

c.  The  ending  angle,  range,  and  height  for  each  ray  trace  step  is  now  stored  in  ar¬ 
rays  raya,  rtemp,  and  htemp,  respectively. 
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d.  Now,  if  running  a  full  hybrid  case  (ihyhM  =  1),  a  test  is  made  to  determine  if  both 
h()  is  less  than  yn  and  if  rB  is  greater  than  rfm.  If  these  conditions  are  true,  then  the 
flag,  i  uit,  is  set  equal  to  1 .  If  the  case  is  not  a  full  hybrid  case  and  if  h0  is  less  than 
ym,  then  'i1uil  is  set  equal  to  1.  Finally,  if  h„  is  greater  than  or  equal  to  zlimu  or  iquit 
equals  1,  then  the  current  iteration  is  exited  and  the  SU  proceeds  to  step  2;  other¬ 
wise,  steps  a  through  d  are  repeated. 

2.  If  the  iteration  defined  by  steps  a  through  d  has  been  prematurely  terminated  0?w=l), 
then  the  initial  elevation  angle,  ahmch,  is  decreased  by  10  radians  for  the  full  hybrid 
case  (7_>w=l),  and  is  increased  by  10'3,  otherwise.  If  the  previous  iteration  has  not 
been  prematurely  terminated  0^=0),  the  SU  continues  with  step  3. 

3.  If  height  zUml  is  reached,  then  an  initial  launch  angle  (i.e.,  ray)  has  been  found  with  all 
traced  heights,  ranges,  and  angles  stored.  The  integer  flag  to  continue  ray  tracing,  iray, 
is  set  to  equal  1  to  terminate  the  iterative  loop,  and  the  index,  iw  indicating  the 
range  step  at  which  zlimt  is  reached,  is  set  equal  to  the  range  step  index,  i  (the  range 
step  index  counter  in  the  iterative  loop  defined  by  steps  1  through  3). 

The  remaining  elements  from  ihmax  to  inemp  in  arrays  htemp,  rtemp,  and  raya  are  filled  with 
the  values  h0,  r^,  and  a0,  respectively.  Next,  the  index,  iw  is  set  equal  to  the  minimum  of 

^hinax  l rtemp" 

The  variable,  0^,  is  found  for  the  PE  region  based  on  the  local  ray  angles  just  determined 
for  the  particular  ray  traced.  First,  the  index,  iap,  at  which  the  local  ray  angle  becomes  posi¬ 
tive  (i.e.,  rayah  )  is  determined.  Next,  several  variables  are  initialized.  The  local  indices,  iok 
and  i  plus  the  variables,  zUm  and  amcur,  are  each  set  equal  to  zero.  The  variable,  a^,  is  the 
maximum  local  angle  along  the  traced  ray  up  to  height,  zKm,  with  a  minimum  limit  of  a^. 

The  variable,  0^,  is  then  found  from  an  iteration  performed  on  the  local  angle  and  height 
at  which  the  local  maximum  angle  is  reached.  The  following  steps  (1  through  6)  are  per¬ 
formed  while  the  flag  iok  is  0. 

1 .  The  height  in  the  PE  region  that  must  be  reached  for  the  hybrid  model,  z,,  is  set  equal 
t°  zu- 10"3.  Next,  the  first  occurrence  of  htemp .  that  is  greater  than  z,  is  found  and  the 
index  i„  is  then  set  to  the  smaller  of  j  or  iw 

2.  The  angle,  amr,  is  now  initialized  to  |  raya,  | .  The  maximum  angle  in  raya  is  then 

found  looking  only  at  elements  from  raya2  to  rayam  and  a _ is  set  equal  to  this  an¬ 

gle. 

3.  amiclir  is  now  set  equal  to  the  maximum  of  aMm  and  a^.  The  variable,  aKmp,  is  now  set 
tool,  divided  by  0.75.  If  running  the  PE-only  mode  (ihybrid=2),  zltst  is  given  by 

zlesl  =  AMAX(antref,hlexl,\2hlemurt,\006). 

4.  A  reference  is  then  made  to  the  FFTPAR  SU  to  determine  new  values  for  z,„r,  z^, 

A zPE,  and  using  the  inputs:  In^,  X,  aiemp,  and  iflag. 

5.  After  the  reference  to  the  FFTPAR  SU  is  made,  if  iflag  =  0,  then  it  is  set  equal  to  1 .  In 
addition,  if  not  running  a  full  hybrid  case,  iok  is  set  equal  to  1.  However,  if  after  the 
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reference  to  the  FFTPAR  SU  is  made,  iflag  is  equal  to  one  and  if  the  case  is  not  a  par¬ 
tial  hybrid  case;  the  iterative  height  tolerance  tol  is  given  by 


^•t est 


A  test  is  then  made  to  determine  whether  this  value  of  tol  is  less  than  or  equal  to  z!Bl, 
the  height  tolerance  for  Newton’s  method.  If  it  is,  then  the  index,  iok,  is  set  equal  to° 
one. 

6.  Then  zUm  is  set  equal  to  z,esl  and  if  iok  is  0,  steps  1  through  5  are  repeated.  Otherwise, 
the  SU  proceeds  to  the  next  step. 

The  variable,  075,  is  now  set  equal  to  amma,  and  0mM  is  set  equal  to  alemp. 

Before  exiting  this  SU,  the  ray  is  traced  again  to  each  output  range  step,  A rout,  and  heights 
are  stored  in  the  array,  Mm.  If  running  a  full  hybrid  mode,  the  variables,  a0,  r0,  h0,  and  j  are 
initialized  to  y/Um,  rpest,  zero,  and  zero,  respectively.  If  not  running  a  full  hybrid  mode  (i.e., 
hyM  *  *)>  the0  ^  variables,  a0,  r0,  hQ,  and  j  are  set  equal  to  ahmch,  zero,  antrrp  and  istart,  respec¬ 
tively.  The  following  steps  (1  through  2)  are  performed  for  each  output  range  step,  i,  from  1 

to  nrou<- 

1 .  If  mgout.  <  r^,  then  Mm.  is  set  equal  to  zero.  If  mgout.  >  rpest,  then  the  variable,  r0,  is 
set  equal  to  mgout  and  the  following  ray  trace  steps  a  through  e  are  performed  until 
ro-ro  and  h0>htlim. 

a.  First,  the  range,  rr  at  the  end  of  the  ray  trace  segment  is  set  equal  to  r0.  Then  the 
current  gradient,  grd,  is  set  equal  to  gr..  If  a0  is  less  than  zero,  then  grd  is  set  equal 
togr.,. 

b.  Next,  the  angle,  av  at  the  end  of  the  ray  trace  segment  is  found  from 

al=AP(a0,r1-r0). 

c.  If  at  is  of  the  opposite  sign  as  a0,  then  a,  is  given  by  zero  and  r,  is  given  by  RP(r0, 
ara0).  The  variable,  hv  is  then  given  by  HP (h0,  ap  a0). 

d.  Now  the  value  of  ht  is  tested.  If  the  value  of  is  less  than  or  equal  to  zrtj+l  minus 
10 3,  then  hx  is  set  equal  to  zrtj+l,  and  a{  and  rl  are  re-computed  as 

«i  =  ^RADA\(a0,  -  h^) , 
r,=RP(r0,a,-ao), 

7  =  7  +  1. 

e.  The  variable,  h0,  is  then  set  equal  to  hv  rQ  is  set  equal  to  rv  and  a0  is  set  equal  to 
av  Steps  a  through  e  are  repeated  until  r0>ro. 

2.  Once  r0  has  reached  r0,  hlimj  is  then  set  equal  to  ha.  Steps  1  through  2  are  repeated  for 
all  output  range  steps. 
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Tables  32  and  33  identify,  describe,  and  provide  units  of  measure  and  computational 
source  for  each  input  and  output  data  element  of  the  GETTHMAX  SU. 


Table  32.  GETTHMAX  SU  input  data  element  requirements. 


Name 

Description 

Units 

Source 

Elevation  angle  of  the  RO  limiting  ray 

radians 

Calling  SU 

Transmitting  antenna  height  relative  to 
h 

meters 

TERINIT  SU 

t. 'mhz 

Frequency 

MHz 

Calling  CSCI 

L 

Logical  flag  indicating  if  terrain  profile 
has  been  specified: 

.true.  =  Terrain  profile  specified 
.false.  =  Terrain  profile  not  specified 

N/A 

TERINIT  SU 

gr 

Intermediate  M-unit  gradient  array,  RO 
region 

(M-unit 

/m)10'6 

REFINIT  SU 

L 

ritermax 

Maximum  terrain  height  along  profile 
path 

meters 

Calling  SU 

K, 

Minimum  height  at  which  all  trapping 
refractivity  features  are  below 

meters 

Calling  SU 

Kr, 

User  specified  maximum  height  relative 

to  K,.,, 

meters 

TERINIT  SU 

1 hybrid 

Integer  indicating  which  submodels  will 
be  used: 

0  =  Pure  PE  model 

1  =  Full  hybrid  model  (PE  +  FE  +  RO  + 

XO) 

2  =  Partial  hybrid  model  (PE  +  XO) 

N/A 

GETMODE 

SU 

ipoi 

Polarization  flag: 

0  =  Horizontal  polarization 

1  =  Vertical  polarization 

N/A 

Calling  CSCI 

^ rtemp 

Temporary  number  of  range  steps  (used 
for  ray  tracing) 

N/A 

APM_MOD 

l  start 

Array  index  for  height  in  RO  region  cor¬ 
responding  to  antrrJ 

N/A 

REFINIT  SU 

itpa 

Number  of  terrain  points  in  used  inter¬ 
nally  in  arrays  tx  and  ty 

N/A 

APMINIT  CSC 

X 

Wavelength 

meters 

APMINIT  CSC 
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Table  32.  GETTHMAX  SU  input  data  element  requirements.  (Continued) 


Name 

Description 

Units 

Source 

Minimum  power  of  2  transform  size 

N/A 

APMINIT  CSC 

Integer  number  of  output  range  points 
desired 

N/A 

Calling  CSCI 

Radians  to  degrees  conversion  factor 

radians/ 

degree 

APM_MOD 

rfi* 

Maximum  range  at  which  the  terrain 
profile  remains  flat  from  the  source 

meters 

Calling  SU 

^ max 

Maximum  output  range 

meters 

Calling  CSCI 

mgout 

Array  containing  all  desired  output 
ranges 

meters 

| 

APMINIT  CSC- 

sip 

Slope  of  each  segment  of  terrain 

N/A 

TERINIT  SU 

tx 

Range  points  of  terrain  profile 

meters 

TERINITSU 

ty 

Adjusted  height  points  of  terrain  profile 

meters 

TERINIT  SU 

zrt 

Height  array  used  for  RO  calculations 

meters 

REFINIT  SU 

z** 

Height  in  PE  region  that  must  be 
reached  for  hybrid  model 

meters 

Calling  SU 

Z'O! 

Height  tolerance  for  Newton’s  method 

meters 

APMINIT  CSC 

Table  33.  GETTHMAX  SU  output  data  element  requirements. 


Name 

Description 

Units 

^ launch 

Launch  angle  used  which,  when  traced,  separates  PE 
and  XO  regions  from  the  RO  region 

radians 

hlim 

Array  containing  height  at  each  output  range  separat¬ 
ing  the  RO  region  from  the  PE  (at  close  ranges)  and 

XO  (at  far  ranges)  regions 

meters 

htemp 

Heights  at  which  ray  is  traced  to  every  range  in  rtemp 

meters 

*ap 

Index  indicating  when  the  local  ray  angle  becomes 
positive  in  array  raya 

N/A 

VL 

Grazing  angle  of  limiting  ray 

radians 

raya 

Array  containing  all  local  angles  of  traced  ray  a,mKh  at 
eacb  inav  range 

radians 

V 

Range  at  which  loss  values  from  the  PE  model  will 
start  being  calculated 

meters 
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Table  33.  GETTHMAX  SU  output  data  element  requirements.  (Continued) 


Name 

Description 

Units 

rtemp 

Range  steps  for  tracing  to  determine  maximum  PE 
angle 

meters 

Maximum  propagation  angle  in  PE  calculations 

radians 

75%  of  maximum  propagation  angle  in  PE  calculations 

radians 

Z lim 

Maximum  height  in  PE  calculation  region 

meters 

5.1.13  Interpolate  Profile  (INTPROF)  SU 

The  INTPROF  SU  performs  a  linear  interpolation  vertically  with  height  on  the  refractivity 
profile,  refref.  Interpolation  is  performed  at  each  PE  mesh  height  point. 

To  interpolate  vertically  at  each  PE  mesh  height,  the  following  iteration  is  performed.  The 
index,  j,  is  determined  such  that  for  every  i*  PE  bin,  ht  is  just  greater  than  hrefj  andj  <  nlvl. 
The  interpolated  profile,  profint,  is  then  determined  from 

.  \  hti  -  hrefj_i  . 

prof  inti  =  refref H  +  con  [refref )  -  refref  M  j  -  j— l  fori  -1,2,3,. 

where  the  array,  ht,  and  constant,  con,  have  been  determined  in  the  APMINIT  CSC. 

Tables  34  and  35  identify,  describe,  and  provide  units  of  measure  and  computational 
source  for  each  input  and  output  data  element  of  the  INTPROF  SU. 


Table  34.  INTPROF  SU  input  data  element  requirements. 


Name 

Description 

Units 

Source 

con 

10% 

meters'1 

APMINIT  CSC 

href 

Heights  of  refractivity  profile  with 
respect  to  local  ground  height 

meters 

PROFREF  SU 

ht 

PE  mesh  height  array  of  size  n^t 

meters 

APMINIT  CSC 

nfft 

Transform  size 

N/A 

FFTPAR  SU 

nlvl 

Number  of  levels  in  new  profile 

N/A 

PROFREF  SU 

refref 

Refractivity  array 

M-un'rts 

PROFREF  SU 
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Table  35.  INTPROF  SU  output  data  element  requirements. 


Name 

Description 

Units 

profi.nl 

Profile  interpolated  to  every  A zPE  in  height 

M-units 

5.1.14  Free  Space  Propagator  Phase  Term  (Phasel)  SU 

The  PHASE1  SU  initializes  the  free  space  propagator  array  for  subsequent  use  in  the 
PESTEP  SU.  The  propagator  term  is  computed  at  each  PE  angle,  or  p-space,  mesh  point  us¬ 
ing  the  wide-angle  propagator.  Finally,  a  filter,  or  attenuation  function  (frequently  called 
“window”),  is  applied  to  the  upper  one-quarter  of  the  array  corresponding  to  the  highest  one- 
quarter  of  the  maximum  propagation  angle. 


The  complex  free-space  propagator  phase  array,  frsp,  is  given  by 


frspj  =  fnorm  [cOS(ArP£  *,(l  -  c .))  -  iSIN(Arre  *„(l  -  c .))] ;  for  j  =  0,1,2,  ...n^. 


where  i  is  the  imaginary  number,  V-l  ,fnom  is  a  normalization  constant,  and  c.  is  given  by 

c,  =  ^/l-AMIN(l,(7C0)2)  . 


Both  terms,  fnorm  and  cn,  have  been  previously  determined  in  the  APMINIT  CSC. 

The  upper  Va  of  the  free-space  propagator  term,  frsp,  is  filtered  by  a  cosine-tapered  (Tukey) 
filter  array,  filt,  according  to 

frspj  =  frspj;  for  j  =  nz/4,n3/4+l,n3l4  +  2,...,nffi  . 

Tables  36  and  37  identify,  describe,  and  provide  the  units  of  measure  and  computational 
source  for  each  input  and  output  data  element  of  the  PHASE1  SU. 


Table  36.  PHASE1  SU  input  data  element  requirements. 


Name 

Description 

Units 

Source 

A 

Constant  equals  A p/kc 

radians 

APMINIT  CSC 

ArpE 

PE  range  step 

meters 

APMINIT  CSC 

filt 

Cosine-tapered  (Tukey)  filter 
array 

N/A 

APMINIT  CSC 

f nam 

Normalization  factor 

N/A 

APMINIT  CSC 

K 

Free-space  wavenumber 

meters"1 

APMINIT  CSC 

ntft 

Transform  size 

N/A 

FFTPAR  SU 

*3,4 

3/4  nm 

N/A 

APMINIT  CSC 
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Table  37.  PHASE1  SU  output  data  element  requirements. 


Name 

Description 

Units 

frsp 

Complex  free  space  propagator  term 

N/A 

array 

5.1.15  Environmental  Propagator  Phase  Term  (Phase2)  SU 

The  PHASE2  SU  calculates  the  environmental  phase  term  for  an  interpolated  environment 
profile.  This  environmental  phase  term  is  computed  at  each  PE  height,  or  z-space,  mesh 
point.  Finally,  a  filter,  or  attenuation  function  (frequently  called  “window”),  is  applied  to  the 
upper  !4  of  the  array  corresponding  to  the  highest  !4  of  the  calculation  height  domain. 

The  complex  refractivity  phase  array  is  given  by 

envpr j  =  COS  (  ArPE  profint  SIN  (A/>£  profint for  j  =  0,1,2,. ..n#, 

where  i  is  the  imaginary  number,  4— 1 . 

The  upper  Va  of  envpr  is  filtered  by  a  cosine-tapered  (Tukey)  filter  array, /i/r,  according  to 
envpr  =  filt}.nyA  envpr forj  =  n3/4,n3,4  +  l,n3/4+2,...,nffi  . 

Tables  38  and  39  identify,  describe,  and  provide  units  of  measure  and  computational 
source  for  each  input  and  output  data  element  of  the  PHASE2  SU. 


Table  38.  PHASE2  SU  input  data  elements  requirements. 


Name 

Description 

Units 

Source 

PE  range  step 

meters 

APMINIT  CSC 

flit 

Cosine-tapered  (Tukey)  filter  array 

N/A 

APMINIT  CSC 

nffi 

Transform  size 

N/A 

FFTPAR  SU 

n3/4 

3/4  of  nffi 

N/A 

APMINIT  CSC 

profint 

i 

Profile  interpolated  to  every  A zeE  in 
height 

M-units 

INTPROF  SU 

Table  39.  PHASE2  SU  output  data  element  requirements. 


Name 

Description 

Units 

envpr 

Complex  refractivity  profile  array 

N/A 

interpolated  every  A zrt  in  height 
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5.1.16  Profile  Reference  (PROFREF)  SU 

The  PROFREF  SU  adjusts  the  current  refractivity  profile  so  that  it  is  relative  to  a  reference 
height,  yref  The  reference  height  is  initially  the  minimum  height  of  the  terrain  profile.  Upon 
subsequent  calls  from  the  PESTEP  SU,  the  refractivity  profile  is  adjusted  by  the  local  ground 
height  at  each  PE  range  step. 

The  reference  height,  yref  depending  on  the  value  of  iflag,  can  be  either  hminter  or  the  local 
ground  height  above  h  f .  ..  If  ifiag  is  zero,  the  profile  arrays,  ref 'ref  and  href,  will  be  relative  to 
h  .  and  will  also  be  used  to  initialize  refdum  and  htdum  .  If  ifla„  is  one,  then  the  profile 

arrays,  ref  ref  and  href,  will  be  referenced  to  the  local  ground  height.  The  parameter,  hminter,  is 
the  reference  height  for  internal  calculations  in  the  APM  CSCI  of  the  complex  field,  U.  Both 
arrays,  refdum  and  htdum,  are  dummy  arrays  containing  refractivity  values  and  height  val¬ 
ues,  respectively,  for  the  currently  interpolated  profile. 

The  determination  of  ref  ref  and  href  proceeds  as  follows.  First,  the  index,  nlvl,  is  initial¬ 
ized  to  the  number  of  refractivity  levels,  Ivlep,  in  refdum  and  htdum,  and  refref  and  href  are 
initialized  to  zero.  Next,  a  test  is  made  to  determine  whether  the  absolute  value  of  the  refer¬ 
ence  height,  yref  is  greater  than  10'3  (i.e.,  is  yref  greater  than  approximately  zero).  If  yrrf  is  ap¬ 
proximately  zero,  the  elements  of  refref  are  set  equal  to  the  corresponding  M-unit  values  of 
refdum,  and  the  elements  of  href  are  set  equal  to  the  corresponding  height  values  of  htdum 
and  the  SU  is  exited. 


For  the  case  when  yref  is  not  zero,  the  following  calculations  are  made.  First,  the  flag  iw 
and  the  index,  js,  are  set  equal  to  zero  and  minus  one,  respectively.  Then,  yref  is  tested  to  de¬ 
termine  if  it  is  below  mean  sea  level.  If  so,  ihmsl  and  js  are  set  equal  to  one  and  zero,  respec¬ 
tively.  Ifyr?f  is  not  below  mean  sea  level,  then  the  refractivity  profile  level  at  which  yrf/is  just 
above  is  determined.  The  index,  js ,  is  determined  such  that  y^  <htdumj+]  and  yref>  htdum .  . 

The  refractivity  at  yr(>/is  now  computed  from 


r  t  \  y  ref  ~  htdum 

=  refdwn,_  +  (refdum^,  -  refdwn, J  ■ 


htdum, —  htdum , 

Js’1’1  Js 


If  yrrf  falls  below  mean  sea  level  and  the  extrapolation  flag,  iema,  is  zero,  then  rmu  is  given  by 


=  refdum  j  +  0.1 1 8 


yref  -  htdumj 
htdum,.,  —  htdum, 

Js'*  Js 


The  first  element  in  refref  and  href  is  now  set  equal  to  rmu  and  0,  respectively.  The  number 
of  refractivity  levels  in  the  arrays  is  now  lnew=nlvl  -  js  and  the  remainder  of  the  current 
refractivity  profile  is  adjusted  in  height  and  stored  in  refref  and  href  according  to 


refref  j  =  refdum  k 

href  j  =  htdumk  -  yrcf\  for  j  =  1,2,3,  .../„ 
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where  the  index,  k,  is  initialized  to ; +1  at  the  start  and  is  incremented  by  one  with  each  it¬ 
eration  of  j.  The  variable,  nlvl,  indicating  the  number  of  levels  in  the  newly  created  profile,  is 
now  set  to  lmw. 

Next,  if  iflag  equals  zero,  then  ref ref  and  href  arc  used  to  initialize  refdum  and  htdum  be¬ 
fore  exiting.  Finally,  Ivlep  is  set  equal  to  nlvl. 

Tables  40  and  41  identify,  describe,  and  provide  the  units  of  measure  and  computational 
source  for  each  input  and  output  data  element  of  the  PROFREF  SU. 


Table  40.  PROFREF  SU  input  data  element  requirements. 


Name 

Description 

Units 

Source 

htdum 

Height  array  for  current  interpolated  profile 

meters 

REFINTER  SU 

l extra 

Extrapolation  flag  for  refractivity  profiles  entered 
below  mean  sea  level 

iam  =  0;  extrapolate  to  minimum  terrain  height 
standard  atmosphere  gradient 
iam  =  1;  extrapolate  to  minimum  terrain  height 
using  first  gradient  in  profile 

N/A 

Calling  CSCI 

lfog 

Integer  flag  indicating  height  at  which  to  reference 
the  refractivity  profile 
ifas  =  0;  adjust  profile  relative  to  hminltr 
i  =  1;  adjust  profile  relative  to  local  ground 
height  above  hmiMr 

N/A 

Calling  SU 

Ivlep 

Number  of  height/refractivity  levels  in  profile 
refdum  and  htdum 

N/A 

Calling  CSCI 

refdum 

M-unit  array  for  current  interpolated  profile 

M-units 

REFINTER 

Ground  elevation  height  at  current  range 

meters 

Calling  SU 

Table  41 .  PROFREF  SU  output  data  element  requirements. 


Name 

Description 

Units 

href 

Height  array  for  current  interpolated  profile 

meters 

htdum 

Dummy  array  containing  height  values  for  current 
(horizontally  interpolated)  profile 

meters 

Ivlep 

Number  of  height/refractivity  levels  in  profile 

N/A 

nlvl 

Number  of  levels  in  new  profile 

N/A 

refdum 

M-unit  array  for  current  interpolated  profile 

M-units 

refref 

Refractivity  array 

M-units 
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5.1.17  Refractivity  Initialization  (Reflnit)  SU 

The  REFINIT  SU  checks  for  valid  environmental  profile  inputs  and  initializes  all  refrac¬ 
tivity  arrays  used  within  one  application  of  APM. 


Upon  entering,  the  maximum  height,  hb  ,  at  which  the  refractivity  profile  is  extrapolated, 
is  set  to  106  meters  in  a  DATA  statement.  In  addition,  itrror  is  initialized  to  zero. 

The  environmental  data  are  checked  to  determine  if  range-dependent  profiles  have  been 
specified  (npmp>  1).  If  so,  the  range  of  the  last  profile  entered,  mgprofnpmp  is  checked  and  if  it  is 
less  than  the  maximum  output  range  specified,  rmax ,  an  error  message  is  returned  (i.e.,  iemr  is 

set  equal  to  -12)  depending  on  the  value  of  error  flag,  /err  12,  set  in  the  TESS-NC  CSCI  it¬ 
self.  The  SU  is  then  exited;  otherwise,  if  no  error  occurs,  the  SU  proceeds  to  the  next  step. 

Next,  the  REFINIT  SU  tests  for  valid  refractivity  level  entries  for  each  profile.  Every  user- 
specified  profile  is  tested  to  make  sure  the  first  level  in  the  profile  begins  with  a  value  of 
zero  height  (or  less  than  zero  if  the  first  level  is  below  mean  sea  level).  If  it  does  not,  ierror  is 
set  to  -13  and  the  SU  is  exited;  otherwise,  the  SU  proceeds  to  the  next  step. 

A  test  is  then  made  to  determine  if  the  last  gradient  in  each  profile  is  negative.  If  the  last 
gradient  in  any  profile  is  negative,  itmr  is  set  to  -14  and  the  SU  is  exited;  otherwise,  an  addi¬ 
tional  refractivity  level  is  extrapolated  to  height,  h,  ,  and  added  to  each  profile.  The  addi¬ 
tional  level  is  added  according  to 


hmslMPj  =  KSe> 

refmslMpi  =refinslMp_Xi  +  grd[hlarge  -  hmslMp_}i] 


where 


grd= 


refmslMp_lt  -refmslMp_2i 
hmslMP-u  ~  hmslMp_2J 


The  counter  for  the  current  profile,  is,  is  now  initialized  to  1  and  the  range  of  the  next  re¬ 
fractivity  profile,  rv2,  is  initialized  to  rngprofjs.  Next,  the  results  of  the  extrapolation  of  the 
first  environmental  profile  (i.e.,  the  profile  at  range  0)  are  transferred  to  dummy  arrays, 
htdum  and  refdum,  respectively.  The  index,  Ivlep,  is  now  set  equal  to  Ivlp.  Duplicate  levels  in 
the  first  profile  are  removed  by  a  reference  to  the  REMDUP  SU,  and  refdum  and  htdum  are 
adjusted  to  the  minimum  terrain  height  by  a  reference  to  the  PROFREF  SU.  The  parameter, 
nlvl,  returned  from  the  PROFREF  SU,  is  now  the  number  of  height/refractivity  levels  in  the 
adjusted  htdum  and  refdum  arrays. 


Next,  the  height  and  thickness  of  the  highest  trapping  layer  (if  one  exists),  h  and  hMck,  re¬ 
spectively,  are  found  relative  to  h .... ,  First,  htrap  and  hMck  are  initialized  to  zero.  Then  the  fol¬ 
lowing  steps  (1  through  2)  are  performed  for  each  /th  profile  and  for  each  f  refractivity  level. 


1 .  The  gradient  of  the  current  height/refractivity  level,  grd,  and  its  height  relative  to  h.r. 


hpV  are  found  from 


grd  =  refmslj^  .  -  refmslj . 
hp]  =  hmsl  j+Xt  —  hmlnfer 
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2.  If  grd  is  negative  and  hpi  is  greater  than  hlrap,  then  hmp  is  set  equal  to  hpV  and  and  hMck 
are  determined  from 


hp0  =  hmslj  '  -  hminlcr 
^ /hick  hp]  hpQ 


Next,  the  refractivity  and  height  arrays,  rm  and  zrt,  respectively,  needed  in  the  ray  optics 
(RO)  calculations,  are  built.  All  elements  in  zrt  are  set  equal  to  all  elements  in  htdum.  An 
additional  height  level,  equal  to  antrep  is  included  in  zrt  and  the  index,  istan,  is  initialized  to 
that  height  level  which  corresponds  to  antref  Array  rm  is  given  by 

rm,  =  1 0"6  refduml ;  for  i  =  0,1,2,  ...nlvl , 


with  the  refractivity  level  at  height,  antref  ,  interpolated  according  to 


rm 


The  total  number  of  levels  levels  in  zrt  is  reduced  by  one  since  the  highest  level  is  not 
needed. 

The  arrays,  gr  and  q,  used  in  RO  and  ray-tracing  calculations,  are  determined  next.  The 
gradient  array  gr  is  given  by 

=  f0r i  =  0,1,2,..., levels  , 

zrt M- zrt, 

where  if  the  absolute  value  of  gr  is  less  than  10'\  then  gr  is  given  by 

gr,  =  10'8  SIGN(l.,g7*)  . 

The  array  q  is  given  by 

q,  =  2 (rmM  -  rm,);  for  i  =  0,1,2,...,  levels . 

Finally,  the  maximum  and  minimum  M-unit  value  of  the  refractivity  at  range  zero, 
and  rmrmn,  respectively,  are  determined  as  follows.  First,  is  initialized  to  rm0  and  is 
initialized  to  r^.  Then  the  minimum  and  maximum  values  are  found  for  each  ilh  refractivity 
level  from  1  to  nlvl.  The  minimum  is  found  from  AMIN(rm;,  rmr[lh~).  If  rmi  is  greater  than 

r _ „  providing  i  is  less  than  ismrt,  then  r^  is  set  equal  to  rmr  This  procedure  is  repeated  for 

each  value  of  i. 

Tables  42  and  43  identify,  describe,  and  provide  units  of  measure  and  computational 
source  for  each  input  and  output  data  element  of  the  REFINIT  SU. 
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Table  42.  REFINIT  SU  input  data  element  requirements. 


Name 

Description 

Units 

Source 

anK'f 

Transmitting  antenna  height  relative  to 
the  reference  height  h 

meters 

TERINIT  SU 

^  mi  tiler 

Minimum  height  of  terrain  profile 

meters 

TERINIT  SU 

hmsl 

Two-dimensional  array  containing 
heights  with  respect  to  mean  sea  level 
of  each  profile.  Array  format  must  be 
hmsl,j  =  height  of  t  level  of  f  profile. 

7  =  1  for  range-independent  cases. 

meters 

Calling  CSCI 

lerrl2 

User-provided  error  flag  that  will  trap 
on  certain  errors  if  set  to  ‘.true.’ 

N/A 

Calling  CSCI 

Ivlp 

Number  of  height/refractivity  levels  in 
profiles 

N/A 

Calling  CSCI 

n»rof 

Number  of  refractivity  profiles 

N/A 

Calling  CSCI 

refmsl 

Two-dimensional  array  containing  re¬ 
fractivity  with  respect  to  mean  sea  level 
of  each  profile.  Array  format  must  be 
refmsl M-unit  at  i*  level  of  f  profile. 

7  =  1  for  range-independent  cases. 

M-unit 

Calling  CSCI 

r 

max 

Maximum  range 

meters 

Calling  CSCI 

rngprof 

Ranges  of  each  profile,  rngprof  =  range 
of  t  profile 

meters 

Calling  CSCI 

Table  43.  REFINIT  SU  output  data  element  requirements. 


Name 

Description 

Units 

gr 

Intermediate  M-unit  gradient  array,  RO  region 

(M-unit 

/m)10'6 

hmsl 

Two-dimensional  array  containing  heights  with  respect  to 
mean  sea  level  of  each  profile.  Array  format  must  be  hmsltJ 
=  height  of  t  level  of  f  profile,  j  =  1  for  range-independent 
cases 

meters 

htdum 

Height  array  for  current  interpolated  profile 

meters 

i . 

n  thick 

Thickness  of  highest  trapping  layer  from  all  refractivity 
profiles 

meters 

Kar 

Height  of  highest  trapping  layer  from  all  refractivity  profiles 

meters 

^  error 

Integer  value  that  is  returned  if  any  errors  exist  in  input 
data 

N/A 

4 

Counter  for  current  profile 

N/A 
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Table  43.  REFINIT  SU  output  data  element  requirements.  (Continued) 


Name 

Description 

Units 

1* 

start 

RO  height  index  at  transmitter 

N/A 

levels 

Number  of  levels  defined  in  zrt,  rm,  q,  and  gr  arrays 

N/A 

Ivlep 

Number  of  height/refractivity  levels  in  profile,  htdum, 
refdum 

N/A 

Ivlp 

Number  of  user-specified  levels  in  refractivity  profile  (for 
range  dependent  case  all  profiles  must  have  same  number 
of  levels) 

N/A 

nlvl 

Number  of  height/refractivity  levels  in  profile,  refref,  href 

N/A 

q 

Intermediate  M-unit  difference  array,  RO  region 

2M-unit  10' 

6 

refdum 

M-unit  array  for  current  profile 

M-units 

refmsl 

Two-dimensional  array  containing  refractivity  with  respect 
to  mean  sea  level  of  each  profile.  Array  format  must  be 
refmsl..  =  M-unit  at  t  level  of  /  profile,  j  =  1  for  range- 
independent  cases 

M-unit 

rm 

Intermediate  M-unit  array,  RO  region 

M  lO*6 

^nrnax 

Maximum  M-unit  value  of  refractivity  profile  at  range  0 

meters 

r 

mmin 

Minimum  M-unit  value  of  refractivity  profile  at  range  0 

meters 

rv2 

Range  of  the  next  refractivity  profile 

meters 

zrt 

Intermediate  height  array,  RO  region 

meters 

5.1.18  Sine  Fast-Fourier  Transform  (SinFFT)  SU 

A  function  with  a  common  period,  such  as  a  solution  to  the  wave  equation,  may  be  repre¬ 
sented  by  a  series  consisting  of  sines  and  cosines.  This  representation  is  known  as  a  Fourier 
series.  An  analytical  transformation  of  the  function,  known  as  a  Fourier  transform,  may  be 
used  to  obtain  a  solution  for  the  function. 

The  solution  to  the  PE  approximation  to  Maxwell’s  wave  equation  is  obtained  by  using 
such  a  Fourier  transformation  function.  The  APM  CSCI  uses  only  the  real-valued  sine  trans¬ 
formation  in  which  the  real  and  imaginary  parts  of  the  PE  equation  are  transformed  sepa¬ 
rately.  The  Fourier  transformation  provided  with  the  APM  CSCI  is  described  by  Bergland 
(1969)  and  Cooley  (1970).  The  FORTRAN  source  code  is  listed  in  Appendix  A. 

Other  sine  fast  Fourier  transform  (FFT)  routines  are  available  in  the  commercial  market, 
and  such  a  sine  FFT  may  already  be  available  within  another  TESS-NC  CSCI.  The  selection 
of  which  FFT  ultimately  used  by  the  APM  CSCI  is  left  to  the  application  designer  as  every 
sine  FFT  will  have  hardware  and/or  software  performance  impacts.  For  this  reason,  it  is  be- 
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yond  the  scope  of  this  document  to  describe  the  numerical  implementation  of  the  EFT  algo¬ 
rithm. 

Tables  44  and  45  identify,  describe,  and  provide  the  units  of  measure  and  computational 
source  for  each  input  and  output  data  element  of  the  SINFFT  SU. 


Table  44.  SINFFT  input  data  element  requirements. 


Name 

Description 

Units 

Source 

nffi 

T ransform  size 

N/A 

FFTPAR  SU 

X 

Field  array  to  be  transformed — dimen¬ 

pV/m 

FFTSU 

sioned  2"^  in  calling  SU 

Table  45.  SINFFT  output  data  element  requirement. 


Name 

Description 

Units 

X 

Sine  transform  of  field 

5.1.19  Terrain  Initialization  (TERINIT)  SU 

The  TERINIT  SU  examines  and  initializes  terrain  arrays  for  subsequent  use  in  PE  calcula¬ 
tions.  It  tests  for  and  determines  a  range  increment  if  it  is  found  that  range/height  points  are 
provided  in  fixed  range  increments.  The  minimum  terrain  height  is  determined,  and  the  en¬ 
tire  terrain  profile  is  adjusted  in  height  so  that  all  internal  calculations  are  referenced  to  this 
height.  This  is  done  to  maximize  the  PE  transform  calculation  volume. 

First,  several  variables  are  initialized.  The  logical  flag ,f!er,  used  to  indicate  whether  the  ap¬ 
plication  at  hand  is  a  terrain  case,  is  set  equal  to  ‘.false.’  The  integer  flag,  iemr,  that  is  re¬ 
turned  if  any  errors  exist  in  input  data,  is  set  equal  to  zero.  The  maximum  tangent  ray  angle, 
au,  from  source  to  terrain  peak  along  the  profile  path  is  set  equal  to  zero.  The  minimum 
height  of  the  terrain  profile,  hmimr,  is  set  equal  to  zero.  The  transmitting  antenna  height,  antrcp 
relative  to  the  reference  height,  hmimr,  is  set  equal  to  anthi,  the  transmitting  antenna  height 
above  the  local  ground  at  range  zero.  The  maximum  terrain  height,  hurmax,  along  the  profile 
path  is  set  equal  to  zero.  Finally,  if  the  number  of  terrain  points,  i  ,  specified  is  greater  than 
zero,  then^pr  is  set  equal  to  ‘.true.’. 

If  performing  a  terrain  case  (flrr  =  ‘.true.’),  the  following  steps  (1  through  10)  are  per¬ 
formed,  otherwise,  the  SU  proceeds  to  step  10. 

1.  First,  all  terrain  range  points  are  checked  in  array  terx  to  ensure  they  are  steadily  in¬ 
creasing.  If  they  are  not,  the  error  flag  irmr  is  set  equal  to  -17  and  the  SU  is  exited.  Oth¬ 
erwise,  the  SU  proceeds  to  step  2. 

2.  Next,  a  test  is  made  to  determine  whether  the  first  range  value  is  zero.  If  it  is  not,  the 
error  flag,  ierror,  is  set  equal  to  -18  and  the  SU  is  exited;  otherwise,  the  SU  proceeds  to  step 
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3.  A  check  is  now  made  to  determine  if  the  specified  terrain  range  points  are  spaced  at  fixed 
increments.  In  this  procedure,  three  variables,  rdif,  rfiac,  and  rd;fsum  are  initialized  to  terx2- 
terx zero,  and  rdif,  respectively.  The  variable,  rdif,  is  the  difference  between  adjacent 
terrain  point  ranges.  The  variable,  rfrac,  is  the  ratio  between  adjacent  terrain  point  differ¬ 
ences.  The  variable,  rSfmm,  is  the  running  sum  of  adjacent  terrain  point  differences.  The  fi¬ 
nal  value  for  rdifsum  and  maximum,  r/rac,  are  determined  as 


rdif2  =  AM  AX  (l0~3,  terxi+l 


f  frac 


rdif2 
rdif  ’ 


'  d  if  sum 


I’d  if  sum  +  rdif2 , 


terx;);  fori  =  2,3,4,..., itp  -1 


where  rdif  is  set  equal  to  the  previous  value  of  rdif2  before  each  subsequent  calculation  of 
a  new  rdif,  and  rfrac  is  the  maximum  of  all  ratios  computed. 

4.  If  it  is  determined  that  the  terrain  points  are  spaced  at  fixed  range  increments,  then  the 
range  spacing  rfix  is  set  to  this  increment.  Assuming  that  the  range  points  are  not  equally 
spaced,  is  initially  set  equal  to  zero.  If  the  value  of  rJmc  is  less  than  1 .05,  then  is  de¬ 
termined  from 


=  NINT 


'  dif sum 

vV"1 


5.  Next  a  test  is  made  to  see  if  the  last  range  point  in  the  profile  meets  or  exceeds  the  maxi¬ 
mum  output  range,  r^.  If  the  logical  flag,  lerr6,  is  ‘.true.’,  then  trapping  for  the  condition, 
terx  <  r  ,  occurs.  If  this  condition  occurs,  the  flag,  iermr,  is  set  equal  to  -6  and  the  SU  is 

Up  mux7 

exited;  otherwise,  the  SU  proceeds  to  step  6. 

6.  The  minimum  height  of  the  terrain  profile  is  found  by  initially  setting  h^er  equal  to  /?w 
The  minimum  height,  fe, is  now  determined  from  the  minimum  of  and  tery,  in  an 
iterative  loop  for  all  terrain  points  for  index  i  running  from  1  to  f. 

7.  Now  the  entire  terrain  profile  is  adjusted  by  h^er  such  that  this  is  the  new  zero  reference. 
The  adjusted  terrain  profile  is  stored  in  the  arrays,  tx  and  ty.  The  maximum  height  of  the 
terrain  hlemax  is  also  obtained  from  ty  in  the  same  manner  as  is  determined  in  step  6. 

8.  An  extra  point  is  added  to  the  arrays,  tx  and  ty.  If  txilp  is  less  than  r^,  then  txitpa  is  set  equal 
to  r  times  1.1.  The  input  index,  L  ,  is  the  number  of  terrain  points  used  internally  in  the 
arrays,  tx  and  ty.  If  tx^  is  greater  or  equal  to  r^,  then  tx^  is  set  equal  to  txilp  times  1 .1 .  Fi¬ 
nally,  the  array  element  tyilpa  is  set  equal  to  tyilp.  If  does  not  exceed  the  maximum 
height  of  the  terrain  profile,  hunma,  then  the  error  flag,  itmr,  is  set  equal  to  -8,  and  the  SU  is 
exited;  otherwise,  the  SU  proceeds  with  step  9. 

9.  The  variable,  antref  is  set  equal  to  anthl  plus  tyr  Next,  the  array  of  terrain  slopes,  sip,  and 
the  maximum  tangent  ray  angle,  au,  from  the  source  to  the  terrain  peak  along  the  profile 
path  are  found  as  follows.  The  slope,  slpP  for  each  t  terrain  segment  is  given  by 
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slPi  = 


amax  ( txM — txt,  lo-5)  ’ 


fori  =  1,2,3,...  itpa  —  1 . 


If  the  value  of  tyi  is  greater  than  antrej,  then  the  maximum  tangent  angle,  a ,  from  the 
source  to  each  terrain  point  is  calculated  as 


angle  =  AT  AN 


ftyj  ~  antref  ^ 

tX: 


V  *"i  J 

au  =  AMA X(angle,au) 


;  for i  =  1,2,3,... ilpa  —  1, 


After  a  is  determined,  0.5°  is  added  to  its  value. 

10.  Before  exiting,  the  minimum  height,  hmnJ>  relative  to  h^,  is  found  from  the  difference 
between  the  minimum  specified  output  height,  hm  and  hmmirr.  The  maximum  height  limit, 
htUm,  relative  to  h^,  is  given  by  the  difference  between  and  hmmr.  If  the  antenna 
height,  antKj,  is  greater  than  htUm,  the  error  code,  ierror,  is  set  to  -9. 

Tables  46  and  47  identify,  describe,  and  provide  units  of  measure  and  computational 
source  for  each  input  and  output  data  element  of  the  TERINTT  SU. 


Table  46.  TERINIT  SU  input  data  element  requirements. 


Name 

Description 

Units 

Source 

antjy 

Transmitting  antenna  height 
above  local  ground 

meters 

Calling  CSCI 

Maximum  output  height  with  re¬ 
spect  to  mean  sea  level 

meters 

Calling  CSCI 

Kn 

Minimum  output  height  with  re¬ 
spect  to  mean  sea  level 

meters 

Calling  CSCI 

K 

Number  of  height/range  points  in 
profile 

N/A 

Calling  CSCI 

'm 

Number  of  height/range  points 
pairs  in  profile,  tx,  ty 

N/A 

APMINIT  CSC 

lerr6 

User-provided  error  flag  that  will 
trap  on  certain  errors  if  set  to 
‘.true.’ 

N/A 

Calling  CSCI 

r 

max 

Maximum  output  range 

meters 

Calling  CSCI 

terx 

Range  points  of  terrain  profile 

meters 

Calling  CSCI 

tery 

Height  points  of  terrain  profile 

meters 

Calling  CSCI 
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Table  47.  TERINIT  SU  output  data  element  requirements. 


Name 

Description 

Units 

au 

Maximum  tangent  ray  angle  from  the  source  to  the 
terrain  peak  along  profile  height 

radians 

ant,,, 

Transmitting  antenna  height  relative  to  the  reference 
height,  h^„ 

meters 

fur 

Logical  flag  indicating  if  terrain  profile  has  been  speci¬ 
fied: 

.true.  =  Terrain  profile  specified 
.false.  =  Terrain  profile  not  specified 

N/A 

minxer 

Minimum  height  of  terrain  profile 

meters 

hmref 

Height  relative  to 

meters 

User-supplied  maximum  height  relative  to  h^,r 
(i.e.,  htlm=hmai-  hmMt) 

meters 

fy termax 

Maximum  terrain  height  along  profile  path 

meters 

^  error 

Integer  value  that  is  returned  if  errors  exist  in  input 
data 

N/A 

Fixed  range  increment  of  terrain  profile 

meters 

sip 

Slope  of  each  segment  of  terrain 

N/A 

tx 

Range  points  of  terrain  profile 

meters 

ty 

Adjusted  height  points  of  terrain  profile 

meters 

5.1 .20  Troposcatter  Initialization  (TROPOINIT)  SU 

The  TROPOINIT  SU  initializes  all  variables  and  arrays  needed  for  subsequent  troposcatter 
calculations.  The  tangent  range  and  tangent  angle  are  determined  from  the  source  and  the 
tangent  range  and  tangent  angles  are  determined  for  all  receiver  heights  and  stored  in  arrays. 

First,  several  variables  are  initialized.  The  first  of  these,  the  surface  refractivity,  snref  is  set 
equal  to  refdumB,  the  first  element  of  the  dummy  array  containing  M-unit  values  for  the  cur¬ 
rent  (interpolated)  refractivity  profile  taken  relative  to  h^.  Then,  the  array,  tfO,  containing 
angles  used  in  determining  the  common  volume  scattering  angle,  is  found  from 


#0;  = 


_  mgout,  # 


a 


ek 


for  i  =  1,2,3,...,  nrouf. 


where  is  times  the  Earth’s  mean  radius.  A  term  used  in  the  troposcatter  transmission 

loss  calculation,  sn,,  is  determined  from 

sn,  =  0.031  -  0.00232  snref  +  5.67  x  10-6  snj . 
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A  constant  needed  in  the  troposcatter  calculation,  rp  is  determined  from  0.0419  times  the 
frequency,  fMHz.  A  second  constant  needed  in  the  troposcatter  calculation,  rtv  is  found  from  r. 
times  the  adjusted  transmitting  antenna  height,  antref  Next,  the  tangent  angle  from  the  source, 
Slt,  for  smooth  surface  is  computed  from 


0 


l.v 


a 


ek 


du : 


packantref. 


where  dis  is  the  tangent  range  from  the  source  for  smooth  surface.  The  variable  aM  is  deter¬ 
mined  from 


au  =  20LOG[/(ccrf)], 
ad  =9|J+10HS, 


where  a,  represents  the  lowest  direct  ray  angle  in  the  RO  region,  and/(a;)  is  the  antenna 
pattern  factor,  obtained  from  referencing  the  ANTPAT  SU,  for  the  direct  angle. 

The  minimum  range,  rhorl,  at  which  the  diffraction  field  solutions  are  applicable  and  the 
intermediate  region  ends  is  determined  for  smooth  surface  and  zero  receiver  height.  The 
variable,  rhorl,  is  given  by 


(  2  \M33 


hor\  =  antrcj  +  230200.0 


fl 


MHz  J 


where  ek  is  the  effective  Earth’s  radius  factor  value  1.3333333. 

Next,  the  tangent  ranges  and  angles  for  all  output  receiver  heights  are  computed  and  stored 
in  the  arrays,  dls  and  S2s,  respectively.  The  minimum  ranges  at  which  diffraction  field  solu¬ 
tions  are  applicable  (for  smooth  surface)  for  all  output  receiver  heights  are  determined  and 
stored  in  the  array,  rdt.  Height  differences  between  antref  and  each  output  receiver  height  are 
also  computed  and  stored  in  adif.  These  arrays  are  given  by 


d2sj  =  ^2aek  zoutj , 

$  2s,  =--^, 


*ek 


fdti=rhnr}+d2sl 
adif,  =  ant ref  -  zout„ 


where  the  computation  is  performed  for  each  ilh  output  receiver  height,  zout,,  provided  zout, 
is  greater  than  or  equal  to  0,  and  i  ranges  from  1  to  nww. 

If/,„  is  ‘.true.’,  the  following  steps  (1  through  4)  are  performed  to  compute  all  steadily  in¬ 
creasing  tangent  ranges  and  angles  from  the  source,  ad\  and  Sir,  respectively. 
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1.  First,  aid  and  the  index  j  are  each  set  equal  to  zero.  The  current  largest  tangent  angle,  ta, 
from  the  source,  is  initialized  to  &ls. 

2.  The  following  steps  (a  through  c)  are  performed  for  each  f  terrain  point  from  1  to  iwa. 

a.  The  tangent  angle  at  each  terrain  point  is  given  by 

_  ty  -antreS  _ 

tXi  2  aek  ' 

b.  If  a,  is  greater  than  tsl,  then  if  fic.  is  greater  than  du,  and  simultaneously  j  is  equal  to  0, 
then  j  is  incremented  by  1,  #1 t.  is  set  equal  to  and  adl.  is  set  equal  to  dls. 

c.  If  a,  is  greater  than  tsl,j  is  incremented  by  1,  tilt  is  set  equal  to  a„  and  adl.  is  set 
equal  to  £x..  The  variable  ts!  is  now  set  equal  to  a,  and  steps  2a  through  2b  are  re¬ 
peated  for  all  terrain  range/height  pairs. 

3.  If  no  tangent  angles  or  ranges  have  been  found  to  satisfy  conditions  in  step  2b  and  2c 
above  (i.e.,  if  j  is  still  0  after  all  iterations  in  steps  2a  through  2c),  then  j  is  incremented 
by  1,  tflfi  is  set  equal  to  and  adl.  is  set  equal  to  du. 

4.  All  index  counters,  ktrv  jtV  and  jt2  (used  in  the  TROPO  SU)  are  initialized  to  j,  1,  and  1, 
respectively. 

Finally,  the  troposcatter  loss  term,  tlsts,  is  given  by 

tlsts  =  54.9  +  30.0  LOG  (fMHz)  -  0.2  snref  -  au  . 

Tables  48  and  49  identify,  describe,  and  provide  units  of  measure  and  computational 
source  for  each  input  and  output  data  element  of  the  TROPOINIT  SU. 


Table  48.  TROPOINIT  SU  input  data  element  requirements. 


Name 

Description 

Units 

Source 

atk 

%  effective  earth’s  radius 

meters 

APM_MOD 

Twice  4/3  effective  earth’s  radius 

meters 

APMINIT  CSC 

ant„f 

Transmitting  antenna  height  relative  to 
h  „ 

meters 

TERINIT  SU 

ek 

4/3  effective  earth’s  radius  factor 

N/A 

APM_MOD 

f MHz 

Frequency 

MHz 

Calling  CSCI 

L 

i 

i 

Logical  flag  indicating  if  terrain  profile  has 
been  specified: 

.true.  =  Terrain  profile  specified 
.false.  =  Terrain  profile  not  specified 

N/A 

TERINIT  SU 
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Table  48.  TROPOINIT  SU  input  data  element  requirements. 


Name 

Description 

Units 

Source 

^IjXi 

Number  of  height/range  points  pairs  in 
profile,  tx,  ty 

N/A 

APMINIT  CSC 

Integer  number  of  output  range  points 
desired 

N/A 

Calling  CSCI 

Integer  number  of  output  height  points 
desired 

N/A 

Calling  CSCI 

refdum 

M-unit  array  for  current  interpolated  profile 

M-units 

REFINTER  SU 

mgout 

Array  containing  all  desired  output  ranges 

meters 

APMINIT  CSC 

tx 

Range  points  of  terrain  profile 

meters 

TERINIT  SU 

ty 

Adjusted  height  points  of  terrain  profile 

meters 

TERINIT  SU 

zout 

Array  containing  all  desired  output  heights 
referenced  to  hmlmr 

meters 

APMINIT  CSC 

Table  49.  TROPOINIT  SU  output  data  element  requirements. 


Name 

Description 

Units 

ad\ 

Array  of  tangent  ranges  from  source  height— used  with 
terrain  profile 

meters 

adif 

i 

Height  differences  between  antrcf  and  all  output  receiver 
heights 

meters 

dls 

Array  of  tangent  ranges  for  all  output  receiver  heights 
over  smooth  surface 

meters 

J'n 

Index  counter  for  ad]  and  dlt  arrays 

N/A 

jn. 

Index  counter  for  tx  and  ty  arrays  indicating  location  of 
receiver  range 

N/A 

ktr. 

Number  of  tangent  ranges  from  source  height 

N/A 

rdt 

Array  of  minimum  ranges  at  which  diffraction  field  solu¬ 
tions  are  applicable  (for  smooth  surface)  for  all  output 
receiver  heights. 

meters 

rf 

Constant  used  for  troposcatter  calculations 

meters'1 

rf*ant~f 

N/A 

snl 

Term  used  in  troposcatter  loss  calculation 

N/A 

t?0 

Array  of  angles  used  to  determine  common  volume 
scattering  angle 

radians 

Tangent  angle  from  source  (for  smooth  surface) 

radians 
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Table  49.  TROPOINIT  SU  output  data  element  requirements. 


Name 

Description 

Units 

t?/r 

Array  of  tangent  angles  from  source  height— used  with 

radians 

terrain  profile 

ms 

Array  of  tangent  angles  from  all  output  receiver  heights 

radians 

— used  with  smooth  surface 

tlsts 

Troposcatter  loss  term  for  smooth  surface  case 

dB 

5.1.21  Starter  Field  Initialization  (XYINIT)  SU 

The  XYINIT  SU  calculates  the  complex  PE  solution  at  range  zero. 

Upon  entering  this  SU,  several  constant  terms  that  will  be  employed  over  the  entire  PE 
mesh  are  calculated.  The  PE  mesh  is  defined  by  the  number  of  points  in  the  mesh,  nffi,  and  by 
the  mesh  size,  A p .  The  constant  terms  include:  (1)  the  angle  difference  between  mesh  points 

in  p-space,  A0;  (2)  a  height-gain  value  at  the  source  (transmitter),  ant ;  and  (3)  the  normali¬ 
zation  factor,  sgain ,  used  in  the  determination  of  the  complex  array  containing  the  field,  U. 

The  normalization  factor,  sgain ,  is  given  by 

SSain  ~  ~  ' 

^max 

The  angle  difference  between  mesh  points  in  p-space,  A0 ,  is  given  by 


where  k0  is  the  ffee-space  wave  number.  The  height-gain  value  at  the  source  (transmitter), 
antK  ,  is  given  by 

antK  =  ka  antH , 

where  antht  is  the  transmitting  antenna  height  above  the  local  ground  in  meters. 

For  each  point  in  the  PE  p-space  mesh  (i.e.,  i-  0  to  n^),  the  following  steps  are  per¬ 
formed.  First,  the  sine  of  the  direct-path  ray  elevation  angle ,  pk ,  is  determined  from 

Pk  =  i  A0  . 

Next,  the  direct  ray  elevation  angle,  ad,  is  set  equal  to  SINT1^)  and  the  antenna  pattern 

factors ,J{ad)  for  the  direct  path  and  f(-ad)  for  the  reflected  path,  are  determined  by  referenc¬ 
ing  the  ANTPAT  SU.  Then,  the  complex  portions  of  the  PE  solution,  U,  are  determined  from 
the  antenna  pattern  factors,  elevation  angle,  and  normalization  factor  from 
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where  the  field,  Rurm,  due  to  an  image  point  source  at  height,  anthl,  is  given  by 

R,erm  =  COS  (ft  dtlt^  )  +  j  SIN ( ft  dllt^  ) 

and  the  field,  Dttrm,  due  to  a  real  point  source  at  the  height  anthl  is  given  by 

D,erm  =  COS  (ft  ant K )  -  j  SIN  (ft  antK )  . 

In  the  above  two  equations,  j  is  the  imaginary  number,  -J—  1  . 

Finally,  the  upper  14  of  the  field  values  are  filtered.  A  cosine-tapered  (Tukey)  filter  array, 
filt,  is  used  for  this  purpose.  The  initial  PE  field  U  is  given  by 

Ui  =  U,  fiKn^  for  i=n^,n^  +  l,n^  +  2,...,nffi, 
where  ny  is  equal  to  3A  of  nffi. 

Tables  50  and  51  identify,  describe,  and  provide  units  of  measure  and  computational 
source  for  each  input  and  output  data  element  of  the  XYINIT  SU. 


Table  50.  XYINIT  SU  input  data  element  requirements. 


Name 

Description 

Units 

Source 

ant,„ 

Transmitting  antenna  height 
above  local  ground 

meters 

Calling  CSCI 

Ap 

Mesh  size  in  angle-  (or  p-)  space 

radians 

APMINIT  CSC 

fin 

Cosine-tapered  (Tukey)  filter 
array 

N/A 

APMINIT  CSC 

K 

Free-space  wave  number 

meters'1 

APMINIT  CSC 

A 

Wavelength 

meters 

APMINIT  CSC 

nfft 

Transform  size 

N/A 

FFTPAR  SU 

n3M 

%  nm 

N/A 

APMINIT  CSC 

Z max 

Total  height  of  the  FFT/PE  calcu¬ 
lation  domain 

meters 

FFTPAR  SU 

Table  51 .  XYINIT  SU  output  data  element  requirements. 


Name 

Description 

Units 

U 

Transform  of  complex  field 
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5.2  ADVANCED  PROPAGATION  MODEL  STEP  (APMSTEP)  CSC 

The  APMSTEP  SU  advances  the  entire  APM  CSCI  algorithm  one  output  range  step,  refer¬ 
encing  various  SUs  to  calculate  the  propagation  loss  at  the  current  output  range. 

Upon  entering  the  APMSTEP  SU,  the  current  output  range,  rout,  and  the  square  of  the  out¬ 
put  range,  r  ,  are  updated,  and  all  mloss  array  integer  indices  for  the  various  calculation  re¬ 
gions  are  initialized.  The  PESTEP  SU  is  then  referenced  to  determine  all  propagation  loss 
values  within  the  PE  calculation  region.  The  variable,  mloss,  is  returned  with  integer  indices, 
j  5  andj^,  corresponding  to  the  start  and  end,  respectively,  of  propagation  loss  values  within 
mloss. 

If  APM  is  executing  under  the  full  hybrid  mode  (ihyhrid  =  1)  and  the  current  output  range  is 
less  than  the  range  at  which  the  XO  region  begins  (r>u!  <  rj,  the  following  steps  1  and  2  are 
performed. 

1 .  The  starting  and  ending  mloss  array  indices  for  FE  calculations,  jfs  and  jfe,  respectively, 
are  determined.  For  ranges  less  than  2.5  km,  is  set  equal  to  0  for  vertical  polarization, 
or  1  for  horizontal  polarization,  and  jfi  is  set  equal  to  nzriut.  For  ranges  greater  than  2.5 
km,y/t  is  set  equal  to  the  maximum  of  jp+ 1,  or  1  greater  than  the  output  height  index 
which  corresponds  to  the  height  just  above  the  FE  5°  angle  limit.  The  FEM  SU  is  then 
referenced  and  propagation  loss  values  within  the  FE  region  are  computed  and  returned 
in  mloss. 

2.  If  the  current  output  range  is  greater  than  2.5  km,  then  the  starting  and  ending  mloss  ar¬ 
ray  indices  for  RO  calculations,  ja  and  jn,  respectively,  are  determined.  These  indices  are 
based  on  the  values  of  jps,jpe,jfi,  and  jft  such  that  at  every  range  step,yn  will  always  be 
greater  than  the  ending  index  of  the  PE  region,  (jpe),  and  y(r  will  be  less  than  the  starting 
index  of  the  FE  region,  (jf).  The  ROM  SU  is  then  referenced  and  propagation  loss  values 
within  the  RO  region  are  computed  and  returned  in  mloss. 

Once  all  necessary  propagation  loss  values  have  been  computed  for  a  particular  output 
range,  the  gaseous  absorption  calculation  flag,  kabs,  is  tested  and  if  it  is  greater  than  0,  then 
loss  in  centibels  due  to  gaseous  absorption,  lahxb,  is  computed  as  follows: 

where  gasatt  is  the  gaseous  absorption  attenuation  rate  in  dB/km.  The  absorption  loss  is  then 
added  to  all  loss  values  in  mloss. 

Upon  exiting,  if  the  final  output  range  step  has  been  reached,  the  integer  counters,  jtl  and 
'j  associated  with  troposcatter  calculations  are  initialized  to  1 . 
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Tables  52  and  53  identify,  describe,  and  provide  units  of  measure  and  computational  source  for 
each  input  and  output  data  element  of  the  APMSTEP  SU. 


Table  52.  APMSTEP  CSC  input  data  element  requirements. 


Name 

Description 

Units 

Source 

Gaseous  absorption  attenuation  rate 

dB/km 

GASABS  SU 

htfe 

Array  containing  the  height  at  each  output  range  separat¬ 
ing  the  FE  region  from  the  RO  region  (full  hybrid  mode),  or 
the  FE  region  from  the  PE  region  (partial  hybrid  mode) 

meters 

FILLHT  SU 

Maximum  height  relative  to  A 

meters 

TERINIT  SU 

l hybrid 

Integer  indicating  which  submodels  will  be  used: 

0  =  Pure  PE  model 

1  =  Full  hybrid  model  (PE  +  FE  +  RO  +  XO) 

2  =  Partial  hybrid  model  (PE  +  XO) 

N/A 

GETMODE  SU 

ipot 

Polarization  flag: 

0  =  Horizontal  polarization 

1  =  Vertical  polarization 

N/A 

Calling  CSCI 

Current  output  range  step  index 

N/A 

Calling  CSCI 

Number  of  output  height  points  corresponding  to  local 
ground  height  at  current  output  range,  rM 

N/A 

CALCLOS  SU 

^ ob 

Gaseous  absorption  calculation  flag: 

=  0;  no  absorption  loss 

-  1 ;  compute  absorption  loss  based  on  air  tempera 
ture,  and  absolute  humidity,  abs,mm 
k^  =  2;  compute  absorption  loss  based  on  specified 
absorption  attenuation  rate,  y, 

N/A 

APMINIT  CSC 

Integer  number  of  output  range  points  desired 

N/A 

Calling  CSCI 

Integer  number  of  output  height  points  desired 

N/A 

Calling  CSCI 

rar. 

Range  at  which  zlm  is  reached  (used  for  hybrid  model) 

meters 

APMINIT  CSC 

mgout 

Array  containing  all  desired  output  ranges 

meters 

APMINIT  CSC 

rsqrd 

Array  containing  the  square  of  all  desired  output  ranges 

meters2 

APMINIT  CSC 

r,s, 

Range  at  which  to  begin  RO  calculations  (equal  to  2.5  km) 

meters 

APM_MOD 

zout 

Array  containing  all  desired  output  heights  referenced  to 

L 

lminitr 

meters 

APMINIT  CSC 
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Table  53.  APMSTEP  CSC  output  data  element  requirements. 


Name 

Description 

Units 

Jend 

Index  at  which  valid  loss  values  in  mloss  end 

N/A 

J start 

Index  at  which  valid  loss  values  in  mloss  start 

N/A 

Jt\ 

Index  counter  for  adl  and  #1 1  arrays 

N/A 

Ja 

Index  counter  for  tx  and  ty  arrays  indicating  loca¬ 
tion  of  receiver  range 

N/A 

mloss 

Propagation  loss  array 

cB 

Current  desired  output  range 

meters 

5.2.1  Calculate  Propagation  Loss  (CALCLOS  SU) 

The  CALCLOS  SU  determines  the  propagation  loss  at  each  output  height  point  at  the  current  out¬ 
put  range. 

At  the  outset  a  minimum  propagation  factor,  pfacmin,  is  set  to  300  dB. 

Then  an  in-line  function,  PLINT,  for  linear  interpolation  between  two  values,  ply  and  p4 » is  de¬ 
fined  by 

PLINT  (  ply,  pl2,  fmc  )  =  Ph  +  frac  {Pk-Ph), 

where  frac  is  the  fractional  distance  from  ply  to  pl2  for  which  the  interpolation  is  being  made. 

Several  variables  are  initialized.  The  output  range,  rout,  is  updated  based  on  the  current  range  step, 
i  The  height  of  the  terrain  at  the  current  and  last  ranges,  ych  and  ym,  respectively,  are  determined 
relative  to  the  reference  height,  hmre{. 

Next,  the  interpolated  ground  height,  z.m,  at  the  current  output  range  and  the  number  of  vertical 
output  points,  4, ,  that  correspond  to  this  ground  height  are  determined.  First,  the  interpolated  ground 

height  is  given  by 

Z-int  —  PLINT  (  ylas, ,  ycur ,  xx ) , 

where  the  parameter  xx  is  given  in  terms  of  the  PE  range  step,  A rFE,  by 

r  —  r 

_  out  last 
&rPE 


Having  determined  zint ,  4,  is  then  computed  from 


Zg 


f 

=  INT 

\ 


Zint 


teou. 


/ 
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where  A zom  is  the  output  height  increment.  Next,  all  elements  in  array  mloss  from  1  to  i:g  are  set  to 

zero,  and  the  index  j!tan,  representing  beginning  valid  loss  values  in  the  mloss  array,  is  set  to  the 
maximum  of  0  or  /  .  If  vertical  polarization  is  used,  then  1  is  added  to  the  value  of  jsmn. 

If  the  current  output  range  is  greater  than  the  range,  rpea,  at  which  PE  solutions  are  valid,  then  the 
calculation  of  loss  values  begins.  If  this  condition  is  not  satisfied,  then  the  mloss  array  is  set  to  -1  for 
values  of  the  array  index  from  jslarl  up  to  and  including  the  number  of  output  height  points  desired, 
(nmut),  and  the  SU  is  exited. 

Once  it  is  determined  that  loss  calculations  will  be  performed,  several  parameters  are  computed.  If 
the  logical  variable^  is  ‘.true.’,  then  a  terrain  case  is  being  performed.  The  two  indices,  ipl  and  ip2, 
are  given  by 


‘pi 


( 


AMAX 


0,  INT 


V 


y,h 

teou, 


\ 


j 


and 


ip2  =  AMAX 


o,intJ  -2*-  l 
1  J 


These  indices  indicate  the  first  output  height  point  in  array,  zout,  where  propagation  loss  will  be 
computed  at  the  last  and  current  PE  ranges.  Next,  the  output  heights,  zoutjp^  and  zout.^,  relative  to  yba 

and  ycur,  respectively,  are  checked  to  ensure  they  are  positive.  If  not,  the  two  indices,  ipl  and  ip2,  are 
incremented  by  a  value  of  1.  For  values  of  the  array  index  from  0  up  to  and  including  ipV  the  array  of 
propagation  factors,  rfacl,  at  valid  height  points  for  range,  rlmi,  are  set  to  the  minimum  propagation 
factor,  pfacmjn,  for  later  interpolation.  For  values  of  the  array  index  from  0  up  to  and  including  ip2,  the 
array  of  propagation  factors,  rfacl,  at  valid  height  points  for  range,  rnm  are  set  to  the  minimum 
propagation  factor,  pfac mVl,  for  later  interpolation. 


If  the  logical  variable  fter  is  ‘.false.’  (i.e.,  a  smooth  surface  case),  then  both  ipl  and  ip2  are  set  to  0. 
Next,  the  height/integer  value,  jcnd,  indicating  the  end  of  valid  loss  values,  is  determined  as 


c 

jmd  =  AMAX 

V 


0,  NINT 


AMIn[z„.,  AMAX  (z„„  hlim,r ) 

-  hmrcf 

A z 

out 

where  islp  is  the  current  output  range  step,  and  hlim.  is  the  height  at  the  current  output  range  step 
separating  the  PE  region  from  the  FE,  RO,  or  XO  regions.  Note  that  for  terrain  cases,  ray  tracing  was 
performed  using  the  direct  ray  angle  and  sometimes  hlim.  may  be  less  than  the  local  ground  height. 

’sip  ° 

In  that  case,  this  SU  exits  from  the  propagation  loss  calculation. 

The  propagation  loss  values  are  determined  from  the  propagation  factors,  rfacl t  and  rfacl t ,  and 
from  the  parameter,  xx,  defined  earlier  in  this  section.  If  rloglsi  ( 10LOG(r/av/ ) )  is  greater  than  zero  (it 

is  initialized  to  0  for  is!p=l),  then  the  GETPFAC  SU  is  referenced  to  determine  the  propagation  fac¬ 
tor,  rfacl:,  which  is  given  by 
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rfacl,  =  GETPFAC  (  Ulast,  rhglsl,  zoutt  -  yte);  for  i  =  ipl,ipl+l,ipl+2,...,jerul, 

where  Ulast  is  the  complex  field  array  at  the  previous  PE  range.  Next,  the  propagation  factor,  rfac2p 
is  given  by 

rfac2t  =  GETPFAC  (  U,  rlog,  zoutt .  —  yCU(.);  for  i  —  i^fpi  1  > z'/;  2  2., . . . ,  jend  , 

where  £/  is  the  complex  field  array  at  the  current  PE  range,  and  rlng  is  lOLOG(r) . 

Next,  if  using  the  PE  model  only  or  the  partial  hybrid  mode  (PE  &  XO  models),  heights  corre¬ 
sponding  to  the  area  outside  the  valid  PE  calculation  region  are  determined  and  propagation  loss  is 
set  equal  to  -1  within  mloss  for  those  heights.  If  using  the  full  or  partial  hybrid  modes,  the  propaga¬ 
tion  factor  at  the  last  PE  height  point  is  determined  at  both  the  previous  and  current  PE  ranges.  Lin¬ 
ear  interpolation  is  then  performed,  via  the  PLINT  in-line  function,  to  compute  the  propagation  loss 
at  range,  rou„  and  height,  zim.  The  loss  and  height  are  then  stored  in  array,  ffrout,  for  subsequent  inter¬ 
polation  in  the  EXTO  SU. 

Next,  the  propagation  loss  at  range,  rout,  is  found  by  interpolating  between  the  current  and  previous 
PE  ranges.  Again  referencing  the  in-line  function  PLINT,  the  propagation  loss,  rlossk,  is  given  by 

rlossk  =  FUNT[rfaclk,  tfac2k,  xx]+fslrLp;  for  k  J 'start  ’  J start  J  start  ^  ^****)  Ji end  1 

where  fslr.  is  the  free-space  loss  in  dB  at  range  roul. 

lstp 

If  the  troposcatter  calculation  flag,  impo,  is  1,  then  the  TROPO  SU  is  referenced  to  compute  tro- 
poscatter  loss  from  height  zout^  to  zout^  and  this  is  added,  if  necessary,  to  rloss. 

Finally,  the  loss  in  centibels  is  given  by 

mlossk  =  NINT|lO  LOG(r/o^)];  for  k  J  start1  J  start  ^ '  J  start  Jetui  1 

with  the  remaining  elements  in  mloss  set  equal  to  -1  (i.e.,  mloss  =- 1  for  k=jend+ 1  to  nwJ  before  exit¬ 
ing. 

Tables  54  and  55  identify,  describe,  and  provide  units  of  measure  and  computational  source  for 
each  input  and  output  data  element  of  the  CALCLOS  SU. 


Table  54.  CALCLOS  SU  input  data  element  requirements. 


Name 

Description 

Units 

Source 

ten 

PE  range  step 

meters 

APMINIT  CSC 

teou, 

Output  height  increment 

meters 

APMINIT  CSC 

&Zrn 

PE  mesh  height  increment  (bin  width  in 
z-space) 

meters 

FFTPAR  SU 

fslr 

Free-space  loss  array  for  output  ranges 

dB 

APMINIT  CSC 
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Table  54.  CALCLOS  SU  input  data  element  requirements.  (Continued) 


Name 

Description 

Units 

Source 

fier 

Logical  flag  indicating  if  terrain  profile  has 
been  specified: 

.true.  =  Terrain  profile  specified 
.false.  =  Terrain  profile  not  specified 

N/A 

TERINIT  SU 

hlim 

Array  containing  height  at  each  output  range 
separating  the  RO  region  from  the  PE  (at 
close  ranges)  and  XO  (at  far  ranges)  regions 

meters 

GETTHMAX  SU 

hmr'f 

Height  relative  to  hmmr 

meters 

TERINIT  SU 

htfe 

Array  containing  the  height  at  each  output 
range  separating  the  FE  region  from  the  RO 
region  (full  hybrid  mode),  or  the  FE  region 
from  the  PE  region  (partial  hybrid  mode) 

meters 

FILLHT  SU 

^ hybrid 

Integer  indicating  which  submodels  will  be 
used: 

0  =  Pure  PE  model 

1  =  Full  hybrid  model  (PE  +  FE  +  RO  +  XO) 

2  =  Partial  hybrid  model  (PE  +  XO) 

N/A 

GETMODE  SU 

^pol 

Polarization  flag: 

0  =  Horizontal  polarization 

1  =  Vertical  polarization 

N/A 

Calling  CSCI 

LP 

Current  output  range  step  index 

N/A 

Calling  SU 

hrojM 

Troposcatter  calculation  flag: 

/  =  0;  no  troposcatter  calcs 

ilmpo  =  1 ;  troposcatter  calcs 

N/A 

Calling  CSCI 

L 

Number  of  range  steps  in  XO  calculation 
region. 

N/A 

APMINIT  CSC 

Integer  number  of  output  height  points 
desired 

N/A 

Calling  CSCI 

ria. 

Previous  PE  range 

meters 

Calling  SU 

10  LOG(PE  range,  r) 

N/A 

PESTEP  SU 

10  LOG(  previous  PE  range,  rIM) 

N/A 

PESTEP  SU 

mgout 

Array  containing  all  desired  output  ranges 

meters 

APMINIT  CSC 
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Table  54.  CALCLOS  SU  input  data  element  requirements.  (Continued) 


Name 

Description 

Units 

Source 

rpest 

Range  at  which  PE  loss  values  will  start 
being  calculated 

meters 

GETTHMAX  SU 

U 

Complex  field  at  current  PE  range,  r 

fiV/m 

PESTEP  SU 

Ulast 

Complex  field  at  previous  PE  range,  rto, 

(iV/m 

PESTEP  SU 

ycur 

Height  of  ground  at  current  range,  r 

meters 

PESTEP  SU 

y,a« 

Height  of  ground  at  previous  range,  rto 

meters 

PESTEP  SU 

Z-lim 

Height  limit  for  PE  calculation  region 

meters 

GETTHMAX  SU 

zout 

Array  containing  all  desired  output  heights 
referenced  to  hmmtr 

meters 

APMINIT  CSC 

Table  55.  CALCLOS  SU  output  data  element  requirements. 


Name 

Description 

Units 

ffrout 

Array  of  propagation  factors  at  each  output  range  beyond 
raz  and  at  height,  zlm 

dB 

Number  of  output  height  points  corresponding  to  local 
ground  height  at  current  output  range,  roM 

N/A 

J  end 

Index  at  which  valid  loss  values  in  mloss  end 

N/A 

J start 

Index  at  which  valid  loss  values  in  mloss  begin 

N/A 

mloss 

Propagation  loss 

cB 

rfac\ 

Propagation  factor  at  valid  output  height  points  from  PE 
field  at  range,  rto. 

dB 

rfacl 

Propagation  factor  at  valid  output  height  points  from  PE 
field  at  range,  r 

dB 

rloss 

Propagation  loss 

dB 

5.2.2  DOSHIFT  SU 

The  DOSHIFT  SU  shifts  the  field  by  the  number  of  bins  or  PE  mesh  heights  corresponding  to  the 
local  ground  height. 

Upon  entry,  the  number  of  bins  to  be  shifted  is  determined.  First,  the  difference,  ydiff,  between  the 
height  of  the  ground,  yto,  at  the  previous  range  and  that  at  the  current  PE  range,  ycur ,  is  determined 

from 

y  cuff  =  y  cur  y last  ' 
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The  number  of  bins  to  be  shifted,  kbjn,  is  found  from 


Kin 


NINT 


w 

^Z-PE 


\ 


) 


The  PE  solution  U  is  then  shifted  downward  if  the  local  ground  is  currently  at  a  positive  slope  (ydiff 
>  0),  upward  if  the  local  ground  is  at  a  negative  slope  (ydiff  <  0)  and  otherwise  not  shifted.  When  the 
PE  solution  has  been  shifted  down,  the  value  of  the  PE  solution,  U,  for  the  upper  kbin  elements  are  set 
to  zero.  Likewise,  when  the  PE  solution  has  been  shifted  upwards,  the  lower  kbin  elements  are  set  to 
zero. 

Tables  56  and  57  identify,  describe,  and  provide  units  of  measure  and  computational  source  for 
each  input  and  output  data  element  of  the  DOSHIFT  SU. 


Table  56.  DOSHIFT  SU  input  data  element  requirements. 


Name 

Description 

Units 

Source 

tePE 

PE  mesh  height  increment  (bin  width  in 
z-space) 

meters 

FFTPAR  SU 

nfft 

T ransform  size 

N/A 

FFTPAFt  SU 

"ml 

N/A 

APMINIT  CSC 

U 

Complex  field  at  range,  r 

jUV/m 

Calling  SU 

yCur 

Height  of  ground  at  current  range,  r 

meters 

Calling  SU 

yiast 

Height  of  ground  at  previous  range,  rto 

meters  , 

Calling  SU 

Table  57.  DOSHIFT  SU  output  data  element  requirements. 


Name 

Description 

Units 

U 

Complex  field  after  bin  shift 

juV/m 

5.2.3  Flat  Earth  Model  (FEM)  SU 

The  FEM  SU  computes  propagation  loss  at  a  specified  range  based  upon  flat-earth  approxima¬ 
tions.  The  following  steps  (1  through  10)  are  performed  for  each  APM  height  output  point  from  jfi  to 

h- 

1 .  The  receiver  height  at  the  f  output  point,  zoutp  is  first  adjusted  relative  to  the  antenna  height  for 
both  the  direct  and  reflected  ray  paths  and  is  also  corrected  for  earth  curvature  and  average  re¬ 
fraction.  The  receiver  heights,  zm  and  zp,  relative  to  both  the  real  (direct)  and  image  (reflected) 
antenna  height,  respectively,  are  defined  as  follows: 
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z=zoutpaj-^~ 

taek 

where  zoutmcij  and  zoutpaj  represent  the  output  height  zout.  relative  to  the  “real”  and  “image”  an¬ 
tenna  heights,  respectively,  with  respect  to  mean  sea  level.  taek  is  twice  the  effective  earth  radius 
as  calculated  in  the  FILLHT  SU. 

2.  Next,  the  point  or  range  of  reflection,  xreflea,  is  given  by 

Whef_ 

reflect  ^out 

Zp 

This  quantity  is  used  when  referencing  the  GETREFCOEF  SU. 

3.  The  elevation  angles  for  the  direct-  and  reflected-path  rays,  ad  and  ar ,  respectively,  are  given  as 

ad=  TAN'1 

ar  =TAN_1f— ^ 

VW 

4.  The  ANTPAT  SU  is  referenced  with  the  direct-path  elevation  angle  to  obtain  the  antenna  pattern 
factor  for  the  direct-path  ray ,f(ad),  and  with  the  grazing  angle  (opposite  of  the  reflected-path  ray 
angle)  to  obtain  the  antenna  pattern  factor  for  the  surface-reflected  ray,/(-  ar ). 

5.  The  path  lengths  for  both  the  direct-path,  rx,  and  surface-reflected  path,  r2,  are  computed  from 
simple  right  triangle  calculations,  as 


6.  The  GETREFCOEF  SU  is  referenced  with  the  reflected-path  ray  angle  to  obtain  the  amplitude, 
r  and  phase  angle,  (p ,  of  the  surface-reflection  coefficient. 

7.  From  the  two  path  lengths,  the  surface-reflection  phase  lag  angle,  and  the  free-space  wave  num¬ 
ber,  k0,  the  total  phase  angle  is  determined  as 

^  =  (r2  _ri)  K  +  (P  ■ 
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8.  The  square  of  the  coherent  sum  of  both  the  direct-path  ray  and  surface-reflected  path  ray  is  com¬ 
puted  as 

fsL=\f{ccd)2+RLg  +2  f{ccd)  f{-ccr)  Rlg  cos(n)|. 

9.  The  propagation  factor  in  decibels,  Fjac,  is  computed  as 

^=10  log(amax(|/1|,io-!5)). 

A  limit  of  -250  dB  was  put  on  Ffac  to  avoid  underflow  problems. 

10.  Finally,  the  propagation  loss  for  the  output  point,  j,  is  calculated  and  rounded  to  the  nearest  cen- 
tibel  as 

mloss,  =NINT[lO  (plm  +20  LOGf/j)-^}], 

where  pi ^  is  the  ffee-space  propagation  loss  term  in  decibels. 

Tables  58  and  59  identify,  describe,  and  provide  units  of  measure  and  computational  source  for 
each  input  and  output  data  element  of  the  FEM  SU. 


Table  58.  FEM  SU  input  data  element  requirements. 


Name 

Description 

Units 

Source 

ant«f 

Transmitting  antenna  height  relative  to 

meters 

TERINIT  SU 

Maximum  height  relative  to  h r 

meters 

TERINIT  SU 

h' 

Ending  index  within  mloss  of  FE  loss  values 

N/A 

Calling  SU 

jfi 

Starting  index  within  mloss  of  FE  loss  values 

N/A 

Calling  SU 

K 

Free-space  wavenumber 

meters'1 

APMINIT  CSC 

pL, 

Constant  used  in  determining  propagation  loss 
(plCM  =  20  LOG  (2  ko)) 

N/A 

APMINIT  CSC 

K OUl 

Current  output  range 

meters 

Calling  SU 

Square  of  current  output  range 

meters* 

Calling  SU 

ta* 

Twice  the  effective  earth’s  radius 

meters 

FILLHT  SU 

zoutma 

Array  output  heights  relative  to  “real”  antnf 

meters 

APMINIT  CSC 

zoutpa 

Array  output  heights  relative  to  “image”  antre/ 

meters 

APMINIT  CSC 

88 


Table  59.  FEM  SU  output  data  element  requirements. 


Name 

Description 

Units 

"a 

Direct  path  ray  angle 

radians 

mloss 

Propagation  loss 

cB 

x 

reflect 

Range  at  which  ray  is  reflected 

meters 

5.2.4  Free-Space  Range  Step  (FRSTP)  SU 

The  FRSTP  SU  propagates  the  complex  PE  solution  in  free  space  by  one  range  step. 

Upon  entry,  the  PE  field,  f array,  is  transformed  to  p-space  (Fourier  space)  and  its  array  elements 
are  multiplied  by  corresponding  elements  in  the  free-space  propagator  array,  frsp.  Before  exiting,  the 
PE  field  is  transformed  back  to  z-space.  Both  transforms  are  performed  by  referencing  the  FFT  SU. 

Tables  60  and  61  identify,  describe,  and  provide  units  of  measure  and  computational  source  for 
each  input  and  output  data  element  of  the  FRSTP  SU. 

Table  60.  FRSTP  SU  input  data  element  requirements. 


Name 

Description 

Units 

Source 

/array 

Field  array  to  be  propagated  one 
range  step  in  free  space 

pV/m 

Calling  SU 

frsp 

Complex  free-space  propagator  term 
array 

N/A 

PHASE1  SU 

N/A 

APMINIT  CSC 

Table  61 .  FRSTP  SU  output  data  element  requirements. 


Name 

Description 

Units 

f array 

Propagated  field  array 

pV/m 

5.2.5  FZLIM  SU 

The  FZLIM  SU  calculates  and  stores  the  outward  propagation  angle  and  propagation  factor  at 
the  top  of  the  PE  region  for  the  current  PE  range.  The  following  steps  (1  through  5)  are  per¬ 
formed  for  each  reference  to  the  FZLIM  SU. 

1 .  The  GETPFAC  SU  is  referenced  to  determine  the  propagation  factor,  pfdb,  at  height,  zhm-ycur- 

2.  If  this  is  the  first  reference  to  the  FZLIM  SU  (iz  =  1),  then  the  GETPFAC  SU  is  referenced  to 
determine  the  propagation  factor,  pfdhbt,  at  the  previous  PE  range.  A  linear  interpolation  is 
performed  on  pf^  and  pf^,  to  compute  the  propagation  factor  at  range,  r  c,  where  the  XO  re- 
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gion  begins.  The  interpolated  propagation  factor  and  the  outward  propagation  angle,  pfraR  and 
aatz,  respectively,  are  stored  in  the  array,  ffacz.  Next,  a  reference  to  the  SAVEPRO  SU  is 
made  to  store  the  reffactivity  profile  at  the  current  range  from  height,  zlim,  to  the  maximum 
desired  output  height. 

3.  A  reference  is  made  to  the  SPECEST  SU  to  determine  the  outward  propagation  angle,  $out. 
The  counter,  iz,  is  incremented,  but  is  limited  to  izmax.  The  propagation  factor,  pfdb,  current  PE 
range,  r,  and  (with  maximum  limit  of  aatz)  are  stored  in  ffaczUz,  ffacz2iz,  and  ffacz3iz,  re¬ 
spectively. 

4.  If  iz  is  greater  than  2,  then  the  propagation  angle  is  checked  and  slightly  altered  to  avoid  ex¬ 
treme  spiking  when  using  these  angles  in  the  XO  region.  If  fur  is  ‘.false.’,  then  the  angle 
stored  in  ffacz  is  the  smaller  of  $oa,  or  the  previously  stored  angle.  Now,  if  fur  is  ‘.false.’,  or 

conversely,  if  fur  is  ‘.true.’  and  iz  is  less  than  or  equal  to  10,  then  the  iz*  angle  stored  is  ad¬ 
justed  and  given  by 

adif=ffaczXil-ffaczXtz_x 

ffaczXil  =  ffaczXiz_x  ±  AMIN(a^  JO"4) , 

where  *+’  or  ‘-‘  is  used  depending  on  the  sign  of  adif . 

5.  Before  exiting,  a  final  reference  to  the  SAVEPRO  SU  is  made  to  store  the  refractivity  profile 
from  height,  z,im,  to  the  maximum  desired  output  height  at  the  current  range. 

Tables  62  and  63  identify,  describe,  and  provide  units  of  measure  and  computational  source  for 
each  input  and  output  data  element  of  the  FZLIM  SU. 


Table  62.  FZLIM  SU  input  data  element  requirements. 


Name 

Description 

Units 

Source 

<2 

atz 

Local  ray  or  propagation  angle  at  height,  zlm,  and 
range,  rm 

radians 

APMINIT  CSC 

$ 

< 

PE  range  step 

meters 

APMINIT  CSC 

^ PE 

PE  mesh  height  increment  (bin  width  in  z-space) 

meters 

FFTPAR  SU 

fur 

Logical  flag  indicating  if  terrain  profile  has  been 
specified: 

.true.  =  Terrain  profile  specified 
.false.  =  Terrain  profile  not  specified 

N/A 

TERINIT  SU 

iz 

Number  of  propagation  factor,  range,  angle  trip¬ 
lets  stored  in j ffacz 

N/A 

APMINIT  CSC 

FZLIM  SU 
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Table  62.  FZLIM  SU  input  data  element  requirements.  (Continued) 


Name 

Description 

Units 

Source 

Maximum  number  of  points  allocated  for  arrays 
associated  with  XO  calculations 

N/A 

APMINIT  CSC 

r 

Current  PE  range 

meters 

Calling  SU 

r, « 

Range  at  which  z„m  is  reached  (used  for  hybrid 
model) 

meters 

APMINIT  CSC 

^ last 

Previous  PE  range 

meters 

Calling  SU 

% 

10  LOG(  PE  range,  r) 

N/A 

PESTEP  SU 

r 

1  toglsl 

10  LOG(  previous  PE  range,  rj) 

N/A 

PESTEP  SU 

U 

Complex  PE  field  at  range,  r 

pV/m 

PESTEP  SU 

Ulast 

Complex  PE  field  at  range,  rlast 

pV/m 

PESTEP  SU 

y  cur 

Height  of  ground  at  current  PE  range,  r 

meters 

PESTEP  SU 

yum 

Height  of  ground  at  previous  range,  rto 

meters 

PESTEP  SU 

Zlim 

Height  limit  for  PE  calculation  region 

meters 

GETTHMAX  SU 

Table  63.  FZLIM  SU  output  data  element  requirements. 


Name 

Description 

Units 

ffacz 

Array  containing  propagation  factor,  range,  and 

dB,  meters,  radians 

propagation  angle  at  zUm 

iz 

Number  of  propagation  factor,  range,  angle  trip¬ 

N/A 

lets  stored  in  ff^ 

5.2.6  Get  Propagation  Factor  (GETPFAC)  SU 

The  GETPFAC  SU  determines  the  propagation  factor  at  a  specified  height. 

First,  linear  interpolation  is  performed  on  the  magnitudes  of  the  PE  field  at  bins  k  and  k+ 1  to  de¬ 
termine  the  magnitude,  p^,  of  the  field  at  the  receiver  height,  zr : 


p~,  =  N+  /,(K. 


where  the  interpolation  fraction,  fr ,  is  determined  from 


fr  =  ~r - k>  kAzPE<zr<{k  +  l)AzPE 

Azpe 
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f 


k  = 


INT 


V  ^ZpE  ) 


p  is  constrained  to  be  not  less  than  10'10  jiV/m.  Finally,  the  propagation  factor,  Ffac,  is  given  by 
F*  =  AMAX[  -200,  -20LOG(p„,)  -  V], 

Tables  64  and  65  identify,  describe,  and  provide  units  of  measure  computational  source  for  each 
input  and  output  data  element  of  the  GETPFAC  SU. 


Table  64.  GETPFAC  SU  input  data  element  requirements. 


Name 

Description 

Units 

Source 

PE  mesh  height  increment  (bin  width  in 
z-space) 

meters 

Calling  SU 

r * 

10  LOG(  PE  range,  r) 

N/A 

Calling  SU 

U 

Complex  PE  field  at  range,  r 

|j.V/m 

Calling  SU 

Z, 

Receiver  height 

meters 

Calling  SU 

Table  65.  GETPFAC  SU  output  data  element  requirements. 


Name 

Description 

Units 

F* 

Propagation  factor  at  specified 
height,  z. 

dB 

5.2.7  Get  Reflection  Coefficient  (GETREFCOEF)  SU 

The  GETREFCOEF  SU  computes  the  Fresnel  complex  reflection  coefficient  for  a  given  grazing 
angle,  yr. 

Upon  entering,  the  proper  dielectric  constant,  ncf ,  to  be  applied  to  the  reflected  ray,  must  be  de¬ 
termined.  A  DO  WHILE  loop  is  performed  on  the  array,  rgmd,  to  determine  the  index,  i,  at  which 
the  range,  xrrJJecl  (range  at  which  ray  is  reflected),  falls  between  two  consecutive  range  points  in  rgmd. 
Once  this  is  found,  the  corresponding  dielectric  constant,  ncf ,  is  used  in  the  following  equations  to 
compute  the  reflection  coefficient: 

_  ncf  SJN(y/)-^ncf  -  COS2(yr) 

V  ncf  STN(\f/)+ yjncf  -  COS2(yr) 

p  SIN(vr)-A/»ci2-COS2(vr) 

H  SIN(yr)+>/nc12-COS2(yr) 
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where  Rv  and  RH  represent  the  reflection  coefficients  for  vertical  and  horizontal  polarization,  respec¬ 
tively,  and  nc\ f  is  given  by 

ncf  =  £j  +  j60atX . 

The  variables,  e;  and  cr,  are  the  relative  permittivity  and  conductivity,  respectively,  applied  at  range, 
rgmdp  and  A  is  the  wavelength. 

If  the  frequency  is  greater  than  300  MHz,  then  for  horizontal  polarization,  RH,  is  set  equal  to  e'm. 

Tables  66  and  67  identify,  describe,  and  provide  units  of  measure  and  computational  source  for 
each  input  and  output  data  element  of  the  GETREFCOEF  SU. 


Table  66.  GETREFCOEF  SU  input  data  element  requirements. 


Name 

Description 

Units 

Source 

fmt 

Frequency 

MHz 

Calling  CSCI 

V 

Number  of  different  ground  types  specified 

N/A 

Calling  CSCI 

lpol 

Polarization  flag: 

0  =  Horizontal  polarization 

1  =  Vertical  polarization 

N/A 

Calling  CSCI 

2 

nc 

Array  of  complex  dielectric  constants 

N/A 

DIEINIT  SU 

¥ 

Grazing  angle 

radians 

Calling  SU 

rgrnd 

Array  containing  ranges  at  which  varying  ground 
types  apply. 

meters 

Calling  CSCI 

reflect 

Range  at  which  ray  is  reflected 

meters 

FEM  SU 
RAYTRACE  SU 

Table  67.  GETREFCOEF  SU  output  data  element  requirements. 


Name 

Description 

Units 

Rv.h 

Complex  reflection  coefficient  for  vertical  ( V)  and  horizontal  (H)  polari- 

N/A 

zation 

Magnitude  of  the  reflection  coefficient: 

N/A 

<p 

Phase  of  the  reflection  coefficient 

N/A 

93 


5.2.8  Parabolic  Equation  Step  (PESTEP)  SU 

The  PESTEP  SU  computes  propagation  loss  at  a  specified  range  based  upon  the  split-step  Fourier 
PE  algorithm. 

Upon  entering  the  PESTEP  SU,  if  the  current  output  range  step,  iap,  is  equal  to  1,  the  current  PE 
range,  r  and  rto  (10  times  the  logarithm  of  r ),  are  set  equal  to  zero.  An  iterative  DO  WHILE  loop 
then  begins  to  advance  the  PE  solution  such  that  for  the  current  PE  range,  a  PE  solution  is  calculated 
from  the  solution  at  the  previous  PE  range.  This  iterative  procedure  is  repeated  in  the  DO  WHILE 
loop  until  r  is  greater  than  the  output  range,  rouf  The  following  steps  (1  through  10)  are  performed  for 
each  PE  range  step  within  the  DO  WHILE  loop. 

1 .  First,  if  the  current  PE  range,  r,  is  greater  than  zero,  then  the  height  of  the  ground  at  the  pre¬ 
vious  PE  range,  ylast ,  is  set  to  the  height  of  the  ground  at  the  current  PE  range,  ycur .  Next, 

the  previous  PE  range,  rteI,  is  set  equal  to  the  current  PE  range  r.  The  complex  PE  field,  U,  of 
the  previous  range  is  stored  in  the  array,  Ulast,  for  subsequent  horizontal  interpolation  at 
range,  rout.  This  transfer  of  values  from  U  to  Ulast  is  made  for  values  of  the  index,  i,  running 
from  0  through  n^v  In  addition,  r  is  incremented  by  one  PE  range  step,  A rPE .  Finally,  the 
range  at  which  interpolation  for  range-dependent  refractivity  profiles  is  performed,  rmjd,  is 
also  incremented  by  one-half  the  PE  range  step. 

2.  If  performing  a  terrain  case  (i .e.,fltr  is  ‘.true.’),  the  ground  heights,  ycur  and  ymid,  at  range,  r  and 
rmid,  respectively,  must  be  determined.  If  using  vertical  polarization,  the  surface  impedance, 
av,  must  also  be  updated  if  necessary.  The  variables,  ycur  and  y^,,  are  determined  as 

yc„r  =  tyk  +  slpk(r  -txk ) 
y,„ij  =  tyk  +  slPk  ( rmi<i  -**)’ 


where  k  is  the  terrain  profile  counter,  txk  and  tyk  represent  the  range  and  height,  respectively, 
of  the  it  point  in  the  terrain  profile,  and  slpk  is  the  slope  of  the  terrain  segment.  The  cur¬ 
rent  PE  range  is  then  checked  against  the  range  of  the  current  ground  type  given  by  array 
rgmd,  and  if  necessary,  the  ground  type  counter,  ig,  is  incremented  and  a  new  av  is  computed 
by  referencing  the  GETALN  SU.  Finally,  if  the  current  terrain  slope  is  negative,  the 
DOSHIFT  SU  is  referenced  to  shift  the  field  by  the  appropriate  number  of  bins. 

3.  If  using  vertical  polarization,  regardless  of  the  value  of  fter,  the  difference  equation  of  the 
complex  PE  field  is  computed  and  is  given  by 


w,  =  a vt/,.  +  M  ;  i  =  l,2,3,...n#-l. 


-PE 


The  array,  w,  is  then  propagated  in  free  space  one  range  step  by  referencing  the  FRSTP  SU 
and  the  coefficients  used  in  vertical  polarization  calculations,  Cx  and  C2,  are  propagated  to 
the  new  range  as  follows: 

C  =  C  *  C 

M  M  '“'1* 

r  =  r  *  c 
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4.  If  using  horizontal  polarization,  regardless  of  the  value  of  fKr,  the  PE  field  array,  U,  is  propa¬ 
gated  in  free  space  one  range  step  by  referencing  the  FRSTP  SU. 

5.  If  the  APM  CSCI  is  in  a  range-dependent  mode  (i.e.,  the  number  of  profiles,  nprof  is  greater 
than  1),  or  a  terrain  profile  is  specified,  the  REFINTER  SU  is  referenced  to  compute  a  new 
modified  refractive  index  profile,  profint,  adjusted  by  the  local  ground  height,  yM,  at  range, 

r  . .  The  PHASE2  SU  is  then  referenced  to  compute  a  new  environmental  phase  array,  envpr, 

mid 

based  on  this  new  refractivity  profile. 

6.  The  following  procedure  outlines  the  implementation  of  steps  9  through  1 1  in  Kuttler’s  for¬ 
mulation  for  applying  the  Leontovich  boundary  condition  within  the  split-step  PE  algorithm. 
This  procedure  is  only  performed  if  using  vertical  polarization.  First,  the  particular  solution, 
ym,  of  Kuttler’s  difference  equation  is  computed  as  follows: 

m=o 

ymi  =  2AzPEwi  +  RT  ymM;  for  i  =  l,2,3,...,n# -1, 

where  Rr  is  a  quadratic  root  as  computed  in  the  GETALN  SU.  The  complex  PE  field,  U,  is 
then  determined  from 

U =  R-t  ( ~  U r.t-i+i  )'  for  i  = 


Next,  two  summation  terms,  sum,  and  sum2  are  computed: 

1  /  \ 

sum,  =-(U0  +  Un/ootnjf )+  £t/;  root{ 

i=l 

suml=-\lJ,rootmnst  +U„ff)+  ^U^rootm, 

Z  i=i 

where  root  and  rootm  are  arrays  of  RT  and  -RT  to  the  t  power,  respectively.  The  final  step  in 
computing  the  field,  U,  for  vertical  polarization  is 

U. =Ui +a  rootl-vbrootmn^_i\  for  i  =  0,1,2,..., n#, , 


where 


a  =  C,-R  sunt, 
b=C2-R  sum 2, 

2(l-^) 

fl-(l  +  S?)(l -£?')■ 

7.  The  complex  field,  U,  is  now  multiplied  by  the  environmental  phase  array,  envpr,  for  values  of 
the  index,  i,  running  from  0  through  n#-l. 
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8.  Next,  if  the  current  terrain  slope  is  positive,  the  DOSHIFT  SU  is  referenced  to  shift  the  field  by 
the  appropriate  number  of  bins. 

9.  If  XO  calculations  are  to  be  performed  >  1)  and  the  current  PE  range  is  greater  than  raa,  then 
the  FZLIM  SU  is  referenced  to  determine  and  store  the  outward  propagation  angle  at  the  top  of 
the  PE  region  for  subsequent  use  in  the  EXTO  SU. 

10.  Finally,  after  the  output  range,  rout,  is  reached  and  the  DO  WHILE  loop  exited,  the  CALCLOS 
SU  is  referenced  to  obtain  the  propagation  loss  values  at  the  desired  output  heights  at  the  current 
output  range,  rom. 

Tables  68  and  69  identify,  describe,  and  provide  units  of  measure  and  computational  source  for 
each  input  and  output  data  element  of  the  PESTEP  SU. 


Table  68.  PESTEP  SU  input  data  element  requirements. 


Name 

Description 

Units 

Source 

av 

Surface  impedance  term 

N/A 

GETALN  SU 

C, 

Coefficient  used  in  vertical  polarization  calcula¬ 
tions 

N/A 

APMINIT  CSC 
PESTEP  SU 

ct 

Coefficient  used  in  vertical  polarization  calcula¬ 
tions 

N/A 

APMINIT  CSC 
PESTEP  SU 

Cu 

Constant  used  to  propagate  C,  by  one  range 
step 

N/A 

GETALN  SU 

C * 

Constant  used  to  propagate  C2  by  one  range 
step 

N/A 

GETALN  SU 

A  rPE 

PE  range  step 

meters 

APMINIT  CSC 

^rPE2 

Vz  PE  range  step 

meters 

APMINIT  CSC 

A ZpEi 

2  A zre 

meters 

APMINIT  CSC 

etivpr 

Complex  [refractivity]  phase  term  array  inter¬ 
polated  every  A zPE  in  height 

N/A 

PHASE2  SU 

f- 

Logical  flag  indicating  if  terrain  profile  has  been 
specified: 

.true.  =  Terrain  profile  specified 
.false.  =  Terrain  profile  not  specified 

N/A 

TERINIT  SU 

h 

Counter  indicating  current  ground  type  being 
modeled 

N/A 

APMINIT  CSC 
PESTEP  SU 

Number  of  different  ground  types  specified 

N/A 

Calling  CSCI 
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Table  68.  PESTEP  SU  input  data  element  requirements.  (Continued) 


Name 

Description 

Units 

Source 

ipot 

Polarization  flag: 

0  =  Horizontal  polarization 

1  =  Vertical  polarization 

N/A 

Calling  CSCI 

Current  output  range  step  index 

N/A 

Calling  SU 

V 

Number  of  height/range  points  pairs  in  profile, 
tx  ,  ty 

N/A 

APMINIT  CSC 

L 

Number  of  range  steps  in  XO  calculation  region 

N/A 

APMINIT  CSC 

iz 

Counter  for  points  stored  in  j ffacz 

N/A 

FZLIM  SU 

Integer  increment  for  storing  points  at  top  of  PE 
region  (i.e.,  points  are  stored  at  every  izlK  range 
step) 

N/A 

APMINIT  CSC 

nffi 

PE  transform  size 

N/A 

FFTPAR  SU 

N/A 

APMINIT  CSC 

*W 

Number  of  refractivity  profiles 

N/A 

Calling  CSCI 

ran 

Range  at  which  z,,m  is  reached  (used  for  hybrid 
model) 

meters 

APMINIT  CSC 

rgrnd 

Array  containing  ranges  at  which  varying 
ground  types  apply 

meters 

Calling  CSCI 

R 

Coefficient  used  in  C,  and  C2  calculations 

N/A 

GETALN  SU 

r* 

10  LOG(  PE  range,  r) 

N/A 

PESTEP  SU 

Maximum  specified  range 

meters 

Calling  CSCI 

root 

Array  of  RT to  the  f'  power  (e.g.,  root,  =R‘t) 

N/A 

GETALN  SU 

rootm 

Array  of  -RT  to  the  t  power  (e.g.,  rootm,  =(-RT)‘) 

N/A 

GETALN  SU 

r 

out 

Current  output  range 

meters 

Calling  SU 

*T 

Complex  root  of  quadratic  equation  for  mixed 
transform  method  based  on  Kuttler’s  formula¬ 
tion 

N/A 

GETALN  SU 

sip 

Slope  of  each  segment  of  terrain 

N/A 

TERINIT  SU 

tx 

Range  points  of  terrain  profile 

meters 

TERINIT  SU 

ty 

Adjusted  height  points  of  terrain  profile 

meters 

TERINIT  SU 

U 

Complex  PE  field 

pV/m 

PESTEP  SU 

y  cur 

Height  of  ground  at  current  range,  r 

meters 

PESTEP  SU 
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Table  69.  PESTEP  SU  output  data  element  requirements. 


Name 

Description 

Units 

c, 

Coefficient  used  in  vertical  polarization  calculations 

N/A 

Coefficient  used  in  vertical  polarization  calculations 

N/A 

h 

Counter  indicating  current  ground  type  being  modeled 

N/A 

J end 

Index  at  which  valid  loss  values  in  mloss  end 

N/A 

J  stan 

Index  at  which  valid  loss  values  in  mloss  begin 

N/A 

mloss 

Propagation  loss 

cB 

riast 

Previous  PE  range 

meters 

* log 

10  LOG(  PE  range,  r) 

N/A 

^ loglst 

10  LOG(  previous  PE  range,  rj) 

N/A 

^ mid 

Range  at  which  interpolation  for  range-dependent  profiles  is 
performed 

meters 

u 

Complex  PE  field  at  range,  r 

pV/m 

Ulast 

Complex  PE  field  at  range,  r 

pV/m 

w 

Difference  equation  of  complex  PE  field 

y cur 

Height  of  ground  at  current  range,  r 

meters 

y  curm 

Height  of  ground  at  range,  r+  ArPE2 

meters 

ytan 

Height  of  ground  at  previous  range,  rte, 

meters 

ym 

Particular  solution  of  difference  equation 

pV/m 

5.2.9  Ray  Trace  (RAYTRACE)  SU 

Using  standard  ray  trace  techniques,  a  ray  is  traced  from  a  starting  height,  antrrp  and  range,  0,  with 
a  specified  starting  elevation  angle,  a,  to  a  termination  range,  xr.  As  the  ray  is  traced,  an  optical  path 
length  difference,  pld  (the  difference  between  the  actual  path  length  and  xr),  and  a  derivative  of  range 
with  respect  to  elevation  angle,  dxda,  are  being  continuously  computed.  If  the  ray  should  reflect 
from  the  surface,  a  grazing  angle,  y,  is  determined.  Upon  reaching  the  termination  range,  a  terminal 
elevation  angle,  (3,  is  determined  along  with  a  termination  height,  zr 

The  ray  trace  is  conducted  by  stepping  in  profile  levels  and  computing  ending  values.  A  number  of 
stepping  scenarios,  based  upon  starting  and  ending  elevation  angles,  determine  the  program  flow  of 
the  RAYTRACE  SU.  These  scenarios  are  a  ray  that  is  upgoing,  a  ray  that  is  downgoing,  and  a  ray 
that  turns  around  within  a  layer. 

Upon  entering  the  SU,  a  running  range,  xsum,  the  range  at  which  a  ray  is  reflected,  xnflect,  dxda,  plp 
y,  and  a  ray  type  (direct  or  reflected)  flag,  i^,  are  initialized  to  zero.  A  temporary  beginning  eleva- 
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tion  angle,  astart,  is  set  equal  to  a,  and  an  environmental  profile  level  counter,  i,  is  set  equal  to  the 
array  index  for  the  height  in  the  RO  region  corresponding  to  the  transmitter  height,  istart. 

The  following  steps  (1  and  2)  are  now  repeated  while  xsum  remains  less  than  the  termination  range, 
xr  Upon  failure  to  meet  this  repetition  criterion,  the  SU  program  flow  continues  with  step  3  below. 

1 .  The  beginning  angle,  astart,  is  examined  to  determine  if  the  ray  is  initially  upgoing  (i.e.,  as_ 
tart  >  0)  or  downgoing.  If  it  is  upgoing,  the  SU  program  flow  continues  with  steps  la 
through  le;  otherwise  the  program  flow  continues  with  step  2  below. 

a.  The  level  counter  is  examined  and  if  the  ray  is  in  the  highest  layer  (i.e.,  i  =  lml),  the 
ending  angle,  height,  range/angle  derivative,  and  path  length  difference  are  given  as 

P  +(*,"*«■) 

P 

zr  -  zrt,  +  — 


dxda  =  dxda  + 


2  ~2 
^slart 

2  gr, 


a 

P 


a 


a. 


gr. 


( 


Plj  =  P1j  + 


rm  - 


a : 


(P  “«**)  +  — J* 


3  „3 

slarl 


gr, 


respectively,  where  gr  is  an  intermediate  M-unit  gradient,  rm  is  an  intermediate  M-unit, 
and  zrt  is  an  intermediate  height.  Satisfaction  of  this  condition  causes  the  failure  of  the 
repetition  criterion  and  the  SU  program  flow  continues  with  step  3  below. 

b.  If  the  ray  is  not  in  the  highest  layer,  the  ray  must  be  examined  to  determine  if  it  will  turn 
around  and  become  a  downgoing  ray  Within  the  current  layer.  This  is  done  by  looking  at 
the  radical  term,  rad,  which  will  be  used  in  the  ending  angle  calculation.  The  radical 
term  is  given  as 

rad  ® start  (7  / » 

where  q  is  an  intermediate  M-unit  difference.  If  rad  is  greater  than  or  equal  to  zero,  a 
solution  for  the  ending  angle  is  possible.  The  ray  will  not  turn  around  and  the  program 
flow  continues  with  step  c;  otherwise  the  program  flow  continues  with  step  Id. 

c.  Before  calculations  can  continue,  the  possible  ending  range  must  be  compared  to  the 
termination  range.  This  possible  ending  range  is  determined  as 


v  =  X  4- 
■"7 amp  sum 


P  -a* 
gr, 


P -^rad . 
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This  possible  ending  range  is  compared  to  the  termination  range  and  if  it  is  larger,  the 
ending  angle,  height,  range/angle  derivative,  and  path  length  difference  are  computed 
from  equations  given  in  step  la.  Satisfaction  of  this  condition  causes  the  failure  of  the 
repetition  criterion  and  the  SU  program  flow  continues  with  step  3  below. 

If  the  ray  has  not  reached  the  termination  range,  xsum  is  updated  to  xtemp  ;  the  range/angle 
derivative  and  path  length  difference  are  computed  from  equations  given  in  step  la, 
where  3  =  yfrad ;  astart  is  updated  to  3;  the  level  counter  is  incremented  by  one;  and  the 
program  flow  returns  to  the  top  of  step  1  above. 

d.  If  the  ray  has,  in  fact,  turned  around  within  the  current  layer,  a  determination  must  be 
made  for  the  ray  reaching  a  full  range  step  within  the  still  upgoing  segment,  for  the  ray 
reaching  a  full  range  step  within  the  downgoing  segment,  or  the  ray  exceeding  the  termi¬ 
nation  range.  The  full  range  step  is  given  by 


which  is  compared  to  the  termination  range.  If  it  exceeds  the  termination  range,  the  end¬ 
ing  angle,  the  ending  height,  the  range/angle  derivative,  and  the  path  length  difference 
are  determined  from  equations  given  in  step  la.  Satisfaction  of  this  condition  causes  the 
failure  of  the  repetition  criterion  and  the  SU  program  flow  continues  with  step  3  below. 

If  the  termination  range  has  not  been  exceeded,  further  examination  of  the  ray's  segments 
must  be  made. 

e.  At  this  point,  xsum  is  updated  to  xtemp;  xtemp  is  recalculated  as  shown  in  step  Id;  and  xtemp 

is  again  compared  to  the  termination  range.  If  the  termination  range  has  been  exceeded, 
the  ending  angle  is  given  as 


P  =  (xr-xiym)  gr„ 

and  the  ending  height,  the  range/angle  derivative,  and  the  path  length  difference  are  now 
determined  from  equations  shown  in  step  la.  Satisfaction  of  this  condition  causes  the 
failure  of  the  repetition  criterion  and  the  SU  program  flow  continues  with  step  3  below. 

If  the  termination  range  has  not  been  exceeded,  xsum  is  updated  to  xtemp;  3  is  updated  to 
astart>  A©  range/angle  derivative  and  path  length  difference  are  determined  from  equa¬ 
tions  shown  in  step  la;  astart  is  updated  to  3;  and  the  program  flow  returns  to  the  top  of 
step  1  above. 

2.  Note!  The  equations  for  the  upgoing  ray  within  step  1  above  apply  equally  to  the  downgo¬ 
ing  ray  except  where  specified  otherwise.  However,  in  applying  these  equations  to  step  2. 
the  level  counter,  i,  within  the  intermediate  M-unit  gradient  sub-term,  gr.  must  be  reduced 
by  one. 

The  beginning  angle,  astart,  has  been  examined  in  step  1  above  and  the  ray  has  been  deter¬ 
mined  to  be  initially  downgoing.  Similar  to  step  1  above,  the  ray  must  be  examined  to  de¬ 
termine  if  it  has  turned  around  and  has  become  an  upgoing  ray  within  the  current  layer.  This 
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is  done  by  looking  at  the  radical  term,  rad,  which  will  be  used  in  the  ending  angle  calcula¬ 
tion.  This  radical  term  is  given  as 

rad=o2start-qi_x. 

If  rad  is  greater  than  or  equal  to  zero,  a  solution  for  the  ending  angle  is  possible.  The  ray  has 
not  turned  around  and  the  program  flow  continues  with  steps  2a  through  2c  below;  otherwise 
the  program  flow  continues  with  step  2d. 

a.  Before  calculations  can  continue,  the  possible  ending  range  must  be  compared  to  the 
termination  range.  This  possible  ending  range  is  determined  from  the  equation  given  for 
x  in  step  lc,  where  p  is  now  -4rad  .  This  possible  ending  range  is  compared  to  the 
termination  range  and  if  it  is  larger,  the  ending  angle,  the  ending  height,  the  range/angle 
derivative,  and  the  path  length  difference  are  computed  from  equations  shown  in  step  la. 
Satisfaction  of  this  condition  causes  the  failure  of  the  repetition  criterion  and  the  SU  pro¬ 
gram  flow  continues  with  step  2c  below. 

b.  If  the  termination  range  has  not  been  exceeded,  xsum  is  updated  to  xtemp;  the  range/angle 
derivative  and  path  length  difference  are  computed  as  shown  in  step  la,  where  p  =  - 
-Jrad;  astart  is  updated  to  p;  and  the  level  counter  is  decremented  by  one. 

c.  The  level  counter  is  examined,  and  if  it  is  zero,  the  ray  has  reflected  from  the  surface.  In 
this  case,  the  ray  type  flag  is  set  to  1  to  indicate  a  reflection;  the  grazing  angle  is  set  as 
y  =  \astart\,  and  xreflea  is  set  equal  to  xlemp.  At  this  point  a  symmetry  check  is  made.  The 
idea  of  symmetry  says  that  the  ray  will  return  to  its  starting  height,  at  twice  the  reflec¬ 
tion  range,  with  an  ending  elevation  angle  opposite  the  starting  elevation  angle.  Sym¬ 
metry  is  used  for  APM  speed  efficiency  so  as  to  preclude  redundant  ray  trace  calcula¬ 
tions  on  the  upward  path  back  to  the  starting  height.  Prior  to  applying  symmetry,  how¬ 
ever,  the  possible  ending  range  (twice  xsum)  must  be  compared  to  the  termination  range. 
If  the  termination  range  is  exceeded  by  making  the  symmetry  assumption,  astart  is  up¬ 
dated  to  -astart  and  the  assumption  is  vacated.  If  not,  however,  the  assumption  is  invoked 
and  astart  is  updated  to  -a;  xsum  ,  dxda,  and  pld,  are  doubled;  and  the  level  counter  is  re¬ 
stored  to  istart.  Control  is  now  returned  to  the  top  of  step  1  above. 

d.  From  step  2,  the  ray  has  turned  around  within  the  current  layer  and  is  now  an  upgoing 
ray.  Similar  to  the  upgoing  case  of  step  1,  a  determination  must  be  made  for  the  ray 
reaching  a  full  range  step  within  the  still  downgoing  segment,  for  the  ray  reaching  a  full 
range  step  within  the  upgoing  segment,  or  the  ray  exceeding  the  termination  range.  The 
full  range  step  is  given  by  xump  as  computed  in  step  Id. 

If  the  full  range  step  exceeds  the  termination  range,  the  ending  angle,  the  ending  height, 
the  range/angle  derivative,  and  the  path  length  difference  are  computed  from  equations 
shown  in  step  la.  Satisfaction  of  this  condition  causes  the  failure  of  the  repetition  crite¬ 
rion  and  the  SU  program  flow  continues  with  step  3  below.  If  the  termination  range  has 
not  been  exceeded,  further  examination  of  the  ray’s  segments  must  be  made. 
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ending  angle  is  determined  as  in  step  le;  the  ending  height,  range/angle  derivative,  and 
path  length  difference  are  determined  as  in  step  la.  Satisfaction  of  this  condition  causes 
the  failure  of  the  repetition  criterion  and  the  SU  program  flow  continues  with  step  3  be¬ 
low. 

If  the  termination  range  has  not  been  exceeded,  xsum  is  updated  to  xtemp\  ft  is  updated  to  - 
astart ;  the  range/angle  derivative  and  path  length  difference  are  determined  as  in  step  la; 
astart  is  updated  to  /3;  and  the  program  flow  returns  to  the  top  of  step  1  above. 

3.  Within  APM,  the  terminal  elevation  angle  is  not  allowed  to  equal  zero.  Therefore,  if  its 
absolute  value  is  less  than  lO10,  it  is  reset  to  10'10  while  retaining  its  present  sign. 

Tables  70  and  71  identify,  describe,  and  provide  units  of  measure  and  computational  source  for 
each  input  and  output  data  element  of  the  RAYTRACE  SU. 


Table  70.  RAYTRACE  SU  input  data  element  requirements. 


Name 

Description 

Units 

Source 

a 

Source  elevation  angle 

radians 

Calling  SU 

gr 

Intermediate  M-unit  gradient  array, 

RO  region 

(M-unit/mllO-6 

REFINIT  SU 

lstart 

Array  index  for  height  in  RO  region  corre¬ 
sponding  to  antnf 

N/A 

REFINIT  SU 

levels 

Number  of  levels  in  gr,  q,  and  zrt  arrays 

N/A 

REFINIT  SU 

<1 

Intermediate  M-unit  difference  array,  RO 
region 

2(M-unit)10‘6 

REFINIT  SU 

rm 

Intermediate  M-unit  array,  RO  region 

M-unit  10*6 

REFINIT  SU 

xr 

Terminal  range — called  xROn  in  ROCALC 
SU 

meters 

Calling  SU 

zrt 

Intermediate  height  array,  RO  region 

meters 

REFINIT  SU 
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Table  71 .  RAYTRACE  SU  output  data  element  requirements. 


Name 

Description 

Units 

P 

Terminal  elevation  angle 

radians 

dxda 

Derivative  of  range  with  respect  to  elevation  angle 

meters/radians 

ltype 

Ray  type  (direct  or  reflected)  flag 

N/A 

Ph 

Path  length  from  range,  xr 

meters 

V 

Grazing  angle 

radians 

XrtJUcl 

Range  at  which  ray  is  reflected 

meters 

Z, 

Terminal  height 

meters 

5.2.10  Refractivity  Interpolation  (REFINTER)  SU 

The  REFINTER  SU  interpolates  both  horizontally  and  vertically  on  the  modified  refractivity  pro¬ 
files.  Profiles  are  then  adjusted  so  they  are  relative  to  the  local  ground  height. 

First,  an  in-line  function  for  linear  interpolation  is  defined  by 

PINT(pj,  p2 )  =  Pi  +  fv  (p2  -  A). 

Upon  entry,  the  number  of  height/reff activity  levels ,  Ivlep,  for  the  current  profile  is  set  equal  to 
the  user-specified  number  of  levels  for  all  profiles  specified,  Ivlp.  For  the  range-dependent  case,  all 
profiles  have  the  same  number  of  levels. 

If  there  is  a  range-dependent  environment  (i.e.  ,nprof>  1),  horizontal  interpolation  to  rmge  is  per¬ 
formed  between  the  two  neighboring  profiles  that  are  specified  relative  to  mean  sea  level.  In  this 
case,  the  following  calculations  are  made.  If  rmgc  is  greater  than  the  range  for  the  next  refractivity 
profile  rv2,  then  the  index,  j  (indicating  the  range  of  the  previous  refractivity  profile),  is  set  equal  to 
the  counter  for  the  range  of  the  current  profile,  i;,  is  is  then  incremented  by  one.  Next,  the  range  of 
the  previous  refractivity  profile,  rv,,  is  set  equal  to  rv2,  and  rv2  is  set  equal  to  the  range  of  the  is  pro¬ 
file,  mgprofi .  The  fractional  range  fv  for  the  interpolation  is  given  by 


rv2  -  rv,  * 


The  array,  refdum,  containing  M-unit  values  for  the  current  (interpolated)  profile  and  the  array, 
htdum,  containing  height  values  for  the  current  (interpolated)  profile,  are  determined  from 

refdumi  =  PINT  ^rejmsl^ ,  refmsliis  ] ;  /  =  1,2,3,-  -Ivlep 

htdumi  =  PINT  ^hmslij,hmslii^;  i  =  1,2,3,  ...Ivlep 
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where  refmsl  and  hmsl  are  two-dimensional  arrays  containing  refractivity  and  height,  respectively, 
with  respect  to  mean  sea  level  of  each  user-specified  profile. 

The  REMDUP  SU  is  referenced  to  remove  duplicate  refractivity  levels,  with  Ivlep  being  the  num¬ 
ber  of  points  in  the  profile  at  range,  range.  The  PROFREF  SU  is  then  referenced  to  adjust  the  new  pro¬ 
file  (i.e.,  refdum  and  htdum )  relative  to  the  internal  reference  height,  h  .  .  corresponding  to  the 
minimum  height  of  the  terrain  profile.  The  PROFREF  SU  is  then  referenced  once  more  to  adjust  the 
profile  relative  to  the  local  ground  height,  ycurm ,  and  upon  exit  from  the  PROFREF  SU,  the 

INTPROF  SU  is  referenced  to  interpolate  vertically  on  the  refractivity  profile  at  each  PE  mesh 
height  point.  This  results  in  the  n^- point  profile  array,  profint,  which  contains  the  interpolated  M- 
unit  values  for  the  refractivity  at  r  ,  where  nffi  is  the  transform  size. 

Upon  exiting  the  REFTNTER  SU,  rv,  and  the  index,  j,  are  saved  for  use  upon  the  next  reference  of 
the  SU. 

Tables  72  and  73  identify,  describe,  and  provide  the  units  of  measure  and  computational  source 
for  each  input  and  output  data  element  of  the  REFINTER  SU. 


Table  72.  REFINTER  SU  input  data  element  requirement. 


Name 

Description 

Units 

Source 

f 

J  ter 

Logical  flag  indicating  if  terrain  profile  has  been 
specified: 

.true.  =  Terrain  profile  specified 
.false.  =  Terrain  profile  not  specified 

N/A 

TERINIT  SU 

fa minier 

Minimum  height  of  terrain  profile 

meters 

TERINIT  SU 

hmsl 

Two-dimensional  array  containing  heights  with 
respect  to  mean  sea  level  of  each  profile.  Array 
format  must  be  hmsltJ  =  height  of  t  level  of  f  pro¬ 
file.  j=1  for  range-independent  cases 

meters 

Calling  CSCI 

K 

Counter  for  current  profile 

N/A 

REFINIT  SU 
REFINTER  SU 

'*p 

Current  output  range  step  index 

N/A 

Calling  SU 

Ivlp 

Number  of  height/refractivity  levels  in  profiles 

N/A 

Calling  CSCI 

V/ 

Number  of  refractivity  profiles 

N/A 

Calling  CSCI 

r 

ange 

Range  for  profile  interpolation 

meters 

Calling  SU 

refmsl 

Two-dimensional  array  containing  refractivity  with 
respect  to  mean  sea  level  of  each  profile.  Array 
format  must  be  refmsl 'v=  M-unit  at  t  level  of  f 
profile.  7  =  1  for  range-independent  cases 

M-unit 

Calling  CSCI 

mgprof 

Ranges  of  each  profile,  mgprof  -  range  of  t  profile 

meters 

Calling  CSCI 
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Table  72.  REFINTER  SU  input  data  element  requirement.  (Continued) 


Name 

Description 

Units 

Source 

Range  of  the  next  refractivity  profile 

meters 

REFINIT  SU 
REFINTER  SU 

y  curm 

Height  of  ground  midway  between  last  and  current 
PE  range 

meters 

PESTEP  SU 

Table  73.  REFINTER  SU  output  data  element  requirements. 


Name 

Description 

Units 

htdum 

Height  array  for  current  interpolated  profile 

meters 

K 

Counter  for  current  profile 

N/A 

Ivlep 

Number  of  height/refractivity  levels  in  profile 
refdum  and  htdum 

N/A 

profint 

Profile  interpolated  to  every  A zPE  in  height 

M-units 

refdum 

M-unit  array  for  current  interpolated  profile 

M-units 

Range  of  the  next  refractivity  profile 

meters 

5.2.11  Remove  Duplicate  Refractivity  Levels  (REMDUP)  SU 

The  REMDUP  SU  removes  any  duplicate  refractivity  levels  in  the  current  interpolated  profile. 
Adjoining  profile  levels  are  checked  to  see  if  the  heights  are  within  0.001  meters.  If  they  are,  the 
duplicate  level  in  the  profile  is  removed.  This  process  continues  until  all  profile  levels  (Ivlep)  have 
been  checked. 

Tables  74  and  75  identify,  describe,  and  provide  the  units  of  measure  and  computational  source  for 
each  input  and  output  data  element  of  the  REMDUP  SU. 


Table  74.  REMDUP  SU  input  data  element  requirements. 


Name 

Description 

Units 

Source 

htdum 

Height  array  for  current  interpolated  pro¬ 
file 

meters 

REFINTER  SU 

Ivlep 

Number  of  height/refractivity  levels  in 
profile 

N/A 

REFINTER  SU 

refdum 

M-unit  array  for  current  interpolated  pro¬ 
file 

M-units 

REFINTER  SU 
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Table  75.  REMDUP  SU  output  data  element  requirements. 


Name 

Description 

Units 

htdum 

Height  array  for  current  interpolated  profile 

meters 

Ivlep 

Number  of  height/refractivity  levels  in  profile 

N/A 

refdum 

M-unit  array  for  current  interpolated  profile 

M-units 

5.2.12  Ray  Optics  Calculation  (ROCALC)  SU 

The  ROCALC  SU  computes  the  RO  components  that  will  be  needed  (by  the  ROLOSS  SU)  in  the 

calculation  of  propagation  loss  at  a  specified  range  and  height  within  the  RO  region.  These  compo- 

2  2 

nents  are  the  magnitudes  for  a  direct-path  and  surface-reflected  ray,  Fd  and  Fr ,  respectively,  and 
the  total  phase  lag  angle,  Q,  between  the  direct-path  and  surface-reflected  rays. 

The  RO  region  may  be  visualized  as  having  a  grid  of  points  superimposed  upon  it.  The  grid  points 
are  defined  at  the  intersection  of  a  series  of  lines  sloping  upward  from  the  origin  and  a  series  of  ver¬ 
tical  lines  at  varying  ranges.  The  grid  point  counter,  k,  and  the  vertical  lines  are  defined  at  varying 
ranges,  two  of  which  are  represented  by  the  terms  xROp,  a  range  for  which  the  RO  calculations  were 
previously  performed,  and,  xROn,  the  next  calculation  range. 

The  sloping  line  with  the  greatest  angle  (indicated  by  k  =  kmax)  is  a  function  of  the  maximum 
APM  output  height,  htydip  adjusted  for  terrain  and  reference  heights,  and  the  next  calculation  range. 
The  sloping  line  with  the  least  angle  (indicated  by  k  =  kminp)  is  a  function  of  the  height  at  the  top  of 
the  PE  region  and  the  range  of  the  previous  RO  calculations. 

The  following  steps  (1  through  4)  are  performed  while  the  current  range,  x,  is  greater  than  xROn. 

1 .  The  terms  of  table  76  (defined  in  table  77)  are  initialized  or  updated  based  upon  the  RO  cal¬ 
culation  range  counter,  iROp.  If  iROp  equals  -1;  the  terms  are  initialized;  otherwise  the  terms 
are  updated.  It  should  be  noted  that  the  terms  must  be  computed  in  the  order  they  appear  in 
the  table  to  ensure  proper  values  are  assigned  to  component  terms. 
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Table  76.  RO  region  indices,  angles,  and  ranges 


2.  To  calculate  the  RO  components  at  each  vertical  point  for  the  next  range,  xROn,  a  ray  trace 
within  a  Newton  iteration  method  is  used  to  find  a  direct-path  ray  and  a  surface-reflected  ray 
that  will  both  originate  at  the  transmitter  height,  antrep  and  terminate  at  the  same  grid  point, 
zk.  The  results  of  the  iteration  are  examined  and  if  either  of  the  rays  has  not  been  found,  an 
adjustment  in  the  lower  boundary  of  the  RO  region  is  made.  Following  the  conclusion  of  the 
iterations,  the  antenna  pattern  factors  for  each  ray  are  obtained,  a  surface  reflection  coeffi¬ 
cient  for  the  surface-reflected  ray  is  computed,  and  the  RO  components  are  calculated. 

Prior  to  all  calculations  for  each  vertical  point,  the  ray  trace  must  be  initialized  with  begin¬ 
ning  direct-path  and  surface-reflected  ray  elevation  angles,  ad  and  ar  respectively,  and  de¬ 
rivatives  of  height  with  respect  to  these  elevation  angles,  dzdad  and  dzdar  A  starting  as¬ 
sumption  is  made  that  the  direct-path  ray  and  the  surface-reflected  rays  are  parallel  to  each 
other.  Thus,  ad  is  initialized  as  0.001  kmax  and  ar  is  initialized  as  -ad .  The  RAYTRACE  SU 
is  referenced  separately  with  ad  and  ar  to  obtain  termination  elevation  angles,  $d  and  and 
the  two  derivatives  of  range  with  respect  to  elevation  angle,  dxdad  and  dxdan  which  are 
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used,  in  turn,  to  compute  the  needed  derivatives  of  height  with  respect  to  elevation  angle 
given  as  -(5d  dxdad  and  -j8r  dxdar 

3.  Once  the  ray  trace  has  been  initialized,  the  following  steps  (a  through  f)  are  performed  for 
each  vertical  grid  point,  zk,  beginning  with  k  =  kmax  and  subsequently  decrementing  k  down¬ 
ward  while  k  remains  >  kminn.  Once  k  has  reached  zero,  processing  continues  with  step  4  be¬ 
low. 


a.  The  termination  height  is  computed  as 

Zk=xROn  0  001  k, 
where  k  is  the  grid  point  counter. 

b.  The  Newton  iteration  method  to  find  the  direct  path  ray  from  antref  to  zk  is  started.  This 
iteration  is  continued  until  the  difference  between  the  ray  trace  ending  height  zd  and  zk  is 
less  than  a  height  difference  tolerance,  zt0[,  but  in  any  case,  no  more  than  10  times.  The 
direct-path  elevation  angle  is  given  as 


ad=ad- 


Zd  Zk 
dzdad  ’ 


where  zd  and  dzdad  are  obtained  from  the  ray  trace  initialization  of  step  2  above  for  the 
first  iteration  and  from  the  previous  iteration  for  subsequent  iterations. 

The  RAYTRACE  SU  is  referenced  and  a  new  dzdad  is  calculated  as  -fid  dxdad.  This  new 
dzdad  is  examined  and  if  it  is  less  than  10  6,  or  if  the  ray  type  flag,  ,  returned  from 
the  RAYTRACE  SU,  indicates  the  ray  has  reflected,  the  lower  boundary  of  the  RO  re¬ 
gion  is  adjusted  by  setting  kminn  equal  to  one  more  than  k  and  the  iteration  for  the  direct 
ray  is  stopped. 

c.  The  Newton  iteration  method  to  find  the  surface-reflected  ray  from  antref  to  zk  is  now 
started.  This  iteration  should  be  continued  until  the  difference  between  the  ray  trace 
ending  height,  zr  and  zk  is  less  than  a  height  difference  tolerance,  ztok  but  in  any  case,  no 
more  than  10  times.  The  reflected-path  elevation  angle  is  given  as 


ar  =ar 


Zr  Zk 
dzdar  ’ 


where  zr  and  dzdar  are  obtained  from  the  ray  trace  initialization  of  step  2  above  for  the 
first  iteration  and  from  the  previous  iteration  for  subsequent  iterations. 

The  RAYTRACE  SU  is  referenced  and  a  new  dzdar  is  calculated  as  -/3r  dxdar.  This  new 
dzdar  is  examined  and  if  it  is  less  than  10'6,  or  if  indicates  the  ray  is  a  direct  ray,  the 
lower  boundary  of  the  RO  region  is  adjusted  by  setting  kminn  equal  to  one  more  than  k 
and  the  iteration  for  the  surface-reflected  ray  is  stopped. 
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d.  A  test  is  made  to  determine  if  the  grazing  angle,  y/  (returned  from  the  RAYTRACE  SU) 
is  less  than  the  limiting  value,  yUm,  and,  if  so,  the  lower  boundary  of  the  RO  region  is 
adjusted  by  setting  kminn  equal  to  k. 

2  2 

e.  The  magnitudes  for  the  direct-path  and  surface-reflected  ray,  Fd  and  Fr  »  respectively, 
are  now  given  as 


Fd2  = 


'■ROn 


dzdan 


/2K)  > 


[/(°0  > 

where  the  amplitude  of  the  surface  reflection  coefficient,  R^,  is  obtained  from  a  refer¬ 
ence  to  the  GETREFCOEF  SU;  the  antenna  pattern  factors, /(a^)  and  ficty),  are  obtained 
from  references  to  the  ANTPAT  SU,  and  the  derivatives  of  height  with  respect  to  eleva¬ 
tion  angle  are  obtained  from  the  RAYTRACE  SU  within  the  Newton  iteration  of  steps  3b 
and  3c  above. 

f.  The  total  phase  lag  between  the  direct-path  and  surface-reflected  rays  is  computed  as 

&  =  (plr~Pld)  K+(P> 


Fr2  = 


'-ROn 


dzdaT 


where  the  ray  path  lengths  pld  and  plr  are  obtained  from  the  RAYTRACE  SU  within  the 

Newton  iteration  of  steps  2  and  3  above;  the  reflection  coefficient  phase  lag  angle,  (p,  is  ob¬ 
tained  from  a  reference  to  the  GETREFCOEF  SU;  and  ko  is  the  free-space  wave  number. 

4.  If  the  point  counter,  k,  has  been  reduced  to  zero  by  the  procedures  of  steps  3  a  through  3f  above, 
the  surface  values  of  magnitudes  for  the  direct-path  and  surface-reflected  rays  are  both  set  equal 

to  the  last  value  of  Fd  and  the  total  phase  lag  between  the  direct-path  and  surface-reflected  rays 
is  set  equal  to  n. 

Tables  77  and  78  identify,  describe,  and  provide  units  of  measure  and  computational  source  for 
each  input  and  output  data  element  of  the  ROCALC  SU. 


Table  77.  ROCALC  SU  input  data  element  requirements. 


Name 

Description 

Units 

Source 

f^bwr 

Antenna  vertical  beamwidth 

radians 

Calling  CSCI 

da 

Pbwrl  2 

radians 

ROCALC  SU 

frdCRO 

RO  range  interval  fraction  (0.0  to  0.25) 

N/A 

ROCALC  SU 

fttun. 

Maximum  height  relative  to  ft  ......... 

meters 

TERINIT  SU 

meters 

ROCALC  SU 
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Table  77.  ROCALC  SU  input  data  element  requirements.  (Continued) 


Name 

Description 

Units 

Source 

iROn 

Array  index  for  next  range  in  RO  region 

N/A 

ROCALC  SU 

lROp 

Array  index  for  previous  range  in  RO  region 

N/A 

APMINIT  CSC 
ROCALC  SU 

K 

Free-space  wave  number 

meters*1 

APMINIT  CSC 

Ic 

* minn 

Array  index  for  minimum  angle  in  RO  region  at 
range,  xROn 

N/A 

ROCALC  SU 

Grazing  angle  of  limiting  ray 

radians 

APMINIT  CSC 

X 

Current  range 

meters 

Calling  SU 

xROn 

Next  range  in  RO  region 

meters 

APMINIT  CSC 

xROp 

Previous  range  in  RO  region 

meters 

ROCALC  SU 

y*t 

Ground  elevation  height  at  source 

meters 

APMINIT  CSC 

Z.O, 

Height  tolerance  for  Newton's  method 

meters 

APMINIT  CSC 

Table  78.  ROCALC  SU  output  data  element  requirements. 


Name 

Description 

Units 

da 

<W/2 

radians 

^RO 

RO  range  interval 

meters 

Fd 

Magnitude  array,  direct  ray 

N/A 

2 

Fr 

Magnitude  array,  reflected  ray 

N/A 

fracRO 

RO  range  interval  fraction  (0.0  to  0.25) 

N/A 

foydif 

“  y/ref 

meters 

lROn 

Array  index  for  next  range  in  RO  region 

N/A 

lROp 

Array  index  for  previous  range  in  RO  region 

N/A 

k max 

Array  index  for  maximum  angle  in  RO  region  at  range,  xROn 

N/A 

k  * 
Kmmn 

Array  index  for  minimum  angle  in  RO  region  at  range,  xROr 

N/A 

kminp 

Array  index  for  minimum  angle  in  RO  region  at  range,  xROp 

N/A 

Q 

Total  phase  angle  array 

radian 

XROn 

Next  range  in  RO  region 

meters 

XROp 

Previous  range  in  RO  region 

meters 
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5.2.13  Ray  Optics  Loss  (ROLOSS)  SU 

The  ROLOSS  SU  calculates  propagation  loss  values  at  a  specified  range  and  height  based  upon 
the  components  of  magnitude  for  a  direct-path  and  surface-reflected  ray,  Fd  and  Fr ,  respectively, 
and  the  total  phase  lag  angle,  Q,  between  the  two  rays  as  determined  by  the  ROCALC  SU. 

For  purposes  of  computational  efficiency,  an  interpolation  from  the  magnitude  and  total  phase  lag 
angle  arrays  established  by  the  ROCALC  SU  is  made  to  obtain  these  three  quantities  at  each  APM 
vertical  output  mesh  point  within  the  RO  region. 

From  the  interpolated  phase  lag  angle  and  ray  magnitudes  a  propagation  factor  is  calculated  that  is 
used,  in  turn,  with  the  free-space  propagation  loss  to  obtain  a  propagation  loss  at  each  vertical  APM 
output  point. 

Upon  entering  the  SU,  a  range  ratio  term  to  be  used  within  the  interpolation  scheme  is  defined  as 

..  rout  ~XROp 

ratio  - - - . 

Axro 


The  phase  lag  angle  and  ray  magnitude  arrays  have  been  filled  at  grid  points  defined  by  a  series  of 
sloping  lines  and  the  next  and  previous  RO  calculation  range,  xROn  and  xROp,  respectively.  Which 
values  to  interpolate  from  are  determined  by  the  sloping  line  immediately  above  and  the  sloping  line 
immediately  below  the  current  APM  output  point  of  interest.  To  begin  the  calculations,  klo  is  initial¬ 
ized  to  kmax,  the  line  with  the  greatest  angle. 

The  following  steps  (1  through  4)  are  now  taken,  decrementing  downward  in  APM  output  points 
from  the  maximum  output  height  index  in  the  RO  region,  jmax,  to  the  minimum  output  height  index 

in  the  RO  region,  jmin. 


2  2 

1 .  Interpolation  of  Fd  ,Fr ,  and  Q  values  occurs  in  two  stages.  The  first  stage  is  horizontally, 
above  and  below  the  APM  output  point  (i.e.,  along  the  lines  kh  and  khi).  These  values  will  be 
used  in  turn,  in  a  vertical  interpolation  stage  to  obtain  values  at  the  APM  output  point  itself. 
It  may  be,  however,  that  more  than  one  APM  output  point  will  fall  between  two  adjacent  k 
lines.  In  this  case,  it  would  be  redundant  to  perform  the  horizontal  interpolation  more  than 
once.  For  this  reason,  a  temporary  k  line  counter  is  established  that  will  be  used  in  compari¬ 
son  with  kh  to  determine  if  interpolation  is  necessary  or  if  the  previously  interpolated  hori¬ 
zontal  values  may  again  be  used  in  the  vertical  interpolation.  This  temporary  k  counter  is 
given  by 


Kmp  =  INTI 


1000  zRO, 


where  j  is  the  APM  output  point  counter  and  zROj  is  the  /  output  height  point .  If  kKmp  is  less 
than  the  current  kh,  the  APM  output  point  occurs  below  the  current  lower  k  line  and  hori¬ 
zontal  interpolations  must  be  performed  using  the  following  steps  (a  through  c);  otherwise 
the  horizontal  interpolations  are  unnecessary  and  the  SU  may  proceed  with  step  2. 


a.  The  lower  k  line,  kln,  is  reset  to  ktrmp  and  the  upper  k  line,  khi,  is  set  to  one  more  than  kto. 


Ill 


b.  In  preparation  for  the  interpolation,  component  terms  (horizontal  differences  of  direct 
and  surface-reflected  magnitudes  and  phase  lag  angles)  along  the  klB  and  ku  lines  are 
given  as 


A Fdl  =  Fd. 


lROn'klo 


-  Fd: 


‘ROp'klo  ’ 


A Fr?0  =  Fr 


‘ROn’klo 


Fr; 


‘ROp’klo  ’ 


A Q.[0  —Q  k  —  £2,  k  , 

ROn’  lo  ROp’  lo 


substituting  the  index  kh.  for  klo  as  appropriate.  Note  that  these  horizontal  differences  need 
only  be  calculated  while  both  khj  and  klo  remain  greater  than  or  equal  to  both  it  and  k^. 
If  these  conditions  are  not  met,  any  continued  difference  calculations  would  take  place 
within  the  PE  region,  which  would  yield  undesirable  results.  For  failure  of  these  condi¬ 
tions,  the  previously  calculated  difference  values  are  used  for  the  lower  RO  region 
boundary  calculations. 

c.  If  kh  is  greater  than  or  equal  to  km[np  ,  the  horizontally  interpolated  direct  and  surface- 
reflected  magnitudes  and  phase  lag  angles  along  the  kiQ  line  can  proceed  in  a  forward 
manor  (from  xpQp  to  r  J.  These  values  are  given  as 

Fdf  =  Fd 2  .  +  ratio  A Fd?  , 

lo  ‘ROp’klo  lo 

Ftf  =  Fr?  k  +  ratio  A Fr? , 

10  lROp  ,klo  10  ’ 


Q./n—  FI;  i  +  ratio  A Q.!n 

10  lROP  ,Klo 


In  a  like  manor,  the  same  three  equations  above  are  used  to  get  the  values  along  the  kfc 
line  by  substituting  the  index,  kfc,  assuming,  however,  kfc  is  also  greater  than  or  equal  to 
kyninp •  Should  either  k\0  or  kfc  be  less  than  km[np,  the  interpolation  must  proceed  in  a 
backward  manor  (from  xpQn  to  rBUt).  The  above  three  equations  may  again  be  used  by 
substituting  the  index,  ip  On  f°r  iROp,  anc*  the  value  (1  -  ratio )  for  ratio. 

2.  Once  the  horizontal  interpolation  of  magnitudes  and  phase  lag  angles  has  been  accom¬ 
plished,  the  vertical  interpolation  of  magnitudes  and  phase  lag  angles  at  the  APM  output 
point  may  proceed  as 

Fd2  =  Fd?0  +  ratiok  [Fdl  -  Fd?0)  > 

Fr 2  =  Fr?  +  ratio,  (Fr?  - Fr?a) , 

Q  =  Qb  +  rati°k  (ahi  -Qjo)’ 
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where  ratio  from  klo  to  khi  is 


1000  zROj 

ratiok  = - kl0. 

rou, 


3.  From  the  magnitudes  of  the  direct  and  surface-reflected  components  and  the  phase  lag  angle, 
the  square  of  the  propagation  factor  at  the  APM  output  point  is  given  as 


F2  = 


Fd2  +  Fr2  +  2, 


Fd2  Fr2 1  COS(a) 


which,  in  turn,  is  converted  to  a  propagation  factor  expressed  in  decibels  by 

Ffac =10  log[amax(f2,io-25)]  . 


4.  Finally,  the  propagation  loss  at  the  APM  output  point  is  calculated  to  the  closest  integer  in 
centibels  as 

mlossj  =  NINljlO  LO G(fslriap  -F/flC)], 

where  fslrt  is  the  free  space  loss  at  the  iaplh  output  range. 

Tables  79  and  80  identify,  describe,  and  provide  units  of  measure  and  computational  source  for 
each  input  and  output  data  element  of  the  ROLOSS  SU.  Table  81  identifies  terms  that  are  used  inter¬ 
nal  to  the  ROLOSS  SU  and  whose  value  must  be  retained  from  SU  call  to  SU  call  for  reasons  of 
computational  efficiency. 


Table  79.  ROLOSS  SU  input  data  element  requirements. 


Name 

Description 

Units 

Source 

AxRO 

RO  range  interval 

meters 

ROCALC  SU 

Fd 

Magnitude  array,  direct  ray 

N/A 

ROCALC  SU 

Fr 

Magnitude  array,  reflected  ray 

N/A 

ROCALC  SU 

fslr 

Free-space  loss  array  for  output  ranges 

dB 

APMINIT  CSC 

lROn 

Array  index  for  next  range  in  RO  region 

N/A 

ROCALC  SU 

iROp 

Array  index  for  previous  range  in  RO  region 

N/A 

ROCALC  SU 

L, 

Current  output  range  step  index 

N/A 

Calling  SU 

Jmax 

Array  index  for  maximum  output  height  in  RO 
region 

N/A 

Calling  SU 

Jmin 

Array  index  for  minimum  output  height  in  RO 
region 

N/A 

Calling  SU 
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Table  79.  ROLOSS  SU  input  data  element  requirements.  (Continued) 


Name 

Description 

Units 

Source 

Kjnax 

Array  index  for  maximum  angle  in  RO  region  at 
range  xROn 

N/A 

ROCALC 

SU 

K minn 

Array  index  for  minimum  angle  in  RO  region  at 
range  xROn 

N/A 

ROCALC 

SU 

Kminp 

Array  index  for  minimum  angle  in  RO  region  at 
range  xROp 

N/A 

ROCALC 

SU 

n 

Total  phase  angle  array 

radians 

ROCALC 

SU 

Ld 

Current  output  range 

meters 

Calling  SU 

xROp 

Previous  range  in  RO  region 

meters 

ROCALC 

SU 

zRO 

Array  of  output  heights  in  RO  region 

meters 

APMINIT 

CSC 

Table  80.  ROLOSS  SU  output  data  element  requirements. 


Name 

Description 

Units 

mloss 

Propagation  loss 

cB 

Table  81 .  ROLOSS  SU  save  data  element  requirements. 


Name 

Description 

Units 

Source 

A &hi 

Difference  in  total  phase  lag  angle  along  AxRO 
above  desired  APM  output  point 

radians 

ROLOSS 

SU 

AQ-io 

Difference  in  total  phase  lag  angle  along  AxR0 
below  desired  APM  output  point 

radians 

ROLOSS 

SU 

AFdl 

Difference  in  direct  ray  magnitude  along  AxRO 
below  desired  APM  output  point 

N/A 

ROLOSS 

SU 

A Fdl 

Difference  in  direct  ray  magnitude  along  &xRO 
above  desired  APM  output  point 

N/A 

ROLOSS 

SU 

A Frl 

Difference  in  reflected  ray  magnitude  along  &xR0 
below  desired  APM  output  point 

N/A 

ROLOSS 

SU 

A Frl 

Difference  in  reflected  ray  magnitude  along  AxR0 
above  desired  APM  output  point 

N/A 

ROLOSS 

SU 
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5.2.14  Ray  Optics  Model  (ROM)  SU 

The  ROM  SU  serves  as  a  one-call  routine  for  the  RO  model.  It  performs  RO  calculations  by  refer¬ 
encing  the  ROCALC  SU  and  determines  the  loss  at  specified  height  output  points  by  referencing  the 
ROLOSS  SU. 

Tables  82  and  83  identify,  describe,  and  provide  units  of  measure  and  computational  source  for 
each  input  and  output  data  element  of  the  ROM  SU. 


Table  82.  ROM  SU  input  data  element  requirements. 


Name 

Description 

Units 

Source 

Current  output  range  step  index 

N/A 

Calling  SU 

ire 

Ending  index  within  mloss  of  RO  loss  val¬ 
ues 

N/A 

Calling  SU 

Jrs 

Starting  index  within  mloss  of  RO  loss 
values 

N/A 

Calling  SU 

ro* 

Current  output  range 

meters 

Calling  SU 

Table  83.  ROM  SU  output  data  element  requirements. 


Name 

Description 

Units 

mloss 

Propagation  loss 

cB 

5.2.15  Save  Profile  (SAVEPRO)  SU 

The  SAVEPRO  SU  stores  the  gradients  and  heights  of  the  current  refractivity  profile  upon  each 
reference  to  the  FZLIM  SU  from  the  top  of  the  PE  calculation  region  to  the  maximum  user-specified 
height. 

Upon  entering,  the  current  profile  height  array,  htdum  is  searched  to  find  the  index,  i,  such  that 
htdumi  is  the  first  height  in  the  profile  that  is  greater  than  the  maximum  PE  calculation  height, 
zr  ■  The  counter,  l,  is  then  initialized  to  -1. 

Ittn  nrH 

Next,  the  gradients  are  calculated  and  stored,  along  with  corresponding  heights,  as  follows 

refdumi+l  -  refdum. 

grad  ■  — - - - , 

htdum j+l  —  htdum j 

htr,  .=  htdum. , 

Lncw  dZ  J 

where  j  is  incremented  by  one  from  i  to  lvlep-l,  lntw  is  incremented  by  one  with  each  increment  in  j, 
and  iz  represents  the  range  step  index  for  XO  calculations. 
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Before  exiting,  the  last  height  level  in  htdum  is  stored  and  the  final  number  of  levels,  lnew,  in  the  iz*1 
profile  (represented  by  grad  and  htr)  is  stored  in  the  array,  Ivl. 

Tables  84  and  85  identify,  describe,  and  provide  units  of  measure  and  computational  source  for 
each  input  and  output  data  element  of  the  SAVEPRO  SU. 


Table  84.  SAVEPRO  SU  input  data  element  requirements. 


Name 

Description 

Units 

Source 

htdum 

Height  array  for  current  profile 

meters 

REFINTER  SU 

iz 

Number  of  calculation  range  steps  for  XO 
region 

N/A 

FZLIM  SU 

Ivlep 

Number  of  height/refractivity  levels  in  profile 
refdum  and  htdum 

N/A 

REFINTER  SU 

refdum 

M-unit  array  for  current  profile 

M-units 

REFINTER  SU 

^ lim 

Maximum  height  in  PE  calculation  region 

meters 

FFTPAR  SU 

Table  85.  SAVEPRO  output  data  element  requirements. 


Name 

Description 

Units 

grad 

Two-dimensional  array  containing  gradients  of  each 

M-units 

profile  used  in  XO  calculations 

/meter 

htr 

Two-dimensional  array  containing  heights  of  each  pro¬ 
file  used  in  XO  calculations 

meters 

Ivl 

Number  of  height  levels  in  each  profile  used  in  XO  cal¬ 
culations 

N/A 

5.2.16  Spectral  Estimation  (SPECEST)  SU 

The  SPECEST  SU  determines  the  outward  propagation  angle  at  the  top  of  the  PE  calculation  re¬ 
gion  based  on  spectral  estimation. 

Upon  entering  the  SPECEST  SU,  the  topmost  np  points  (within  the  unfiltered  portion)  of  the  com¬ 
plex  PE  field  are  separated  into  their  real  and  imaginary  components,  xp  and  yp,  respectively.  A 
window  filter  is  then  applied  to  both  arrays  by  multiplying  each  element  in  xp  and  yp  by  each  corre¬ 
sponding  element  in  the  filter  array,  filtp,  for  indices  between  %  np  and  np. 

Next,  the  array  elements  in  xp  and  yp  are  set  to  0  for  indices  from  np+ 1  to  n- 1.  (Note  that  both  xp 
and  yp  are  arrays  of  size  ns.)  The  SINFFT  SU  is  then  referenced  to  obtain  the  spectral  field  compo¬ 
nents. 
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The  spectral  amplitudes  in  dB  are  then  given  by 


spectra  10  LOG^AMAXflO"10,^,2  +  m  )  : 


;  for  *  =  0,l,2,...,n,-l. 


Next,  a  three-point  average  is  performed  on  spectr  to  determine  the  bin,  or  index  ipeak,  at  which  the 
peak  spectral  amplitude  occurs.  Once  iptak  has  been  determined,  the  outward  propagation  angle  is 
calculated  as 


0--SIN- 


-1 


(  0  J  \ 

A*1  peak 

flnshzPE  J 


Tables  86  and  87  identify,  describe,  and  provide  units  of  measure  and  computational  source  for 
each  input  and  output  data  element,  respectively,  of  the  SPECEST  SU. 

Table  86.  SPECEST  SU  input  data  element  requirements. 


Name 

Description 

Units 

Source 

Az,e 

PE  mesh  height  increment  (bin  width  in  z-space) 

meters 

FFTPAR  SU 

filtp 

Array  filter  for  spectral  estimation  calculations 

N/A 

APMINIT  CSC 

PE  bin  #  corresponding  to  zrm  (i.e.,  zUm  = jz Um  A zre) 

N/A 

APMINIT  CSC 

K 

Power  of  2  transform  size  used  in  spectral  esti¬ 
mation  calculations  (i.e.,  np  -  2^) 

N/A 

APMINIT  CSC 

np34 

3Anp 

N/A 

APMINIT  CSC 

np 

Number  of  bins  in  upper  PE  region  to  consider 
for  spectral  estimation. 

N/A 

APMINIT  CSC 

n, 

Transform  size  for  spectral  estimation  calcula¬ 
tions 

N/A 

APMINIT  CSC 

u 

Complex  field  at  current  PE  range,  r 

ji.V/m 

PESTEP  SU 

XOco« 

Constant  used  in  determining  $ou 

N/A 

APMINIT  CSC 

}'cur 

Height  of  ground  at  current  range,  r 

meters 

PESTEP  SU 

Table  87.  SPECEST  output  data  element  requirements. 


Name 

Description 

Units 

spectr 

Spectral  amplitude  of  field 

dB 

Au, 

Outward  propagation  angle  at  top  of  PE  region 

radians 

xp 

Real  part  of  spectral  portion  of  PE  field 

pV/m 

yp 

Imaginary  part  of  spectral  portion  field 

pV/m 
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5.2.17  Troposcatter(TROPO)SU 

The  TROPO  SU  calculates  loss  due  to  troposcatter  and  determines  the  appropriate  loss  to  add  to 
the  already  calculated  propagation  loss  at  and  beyond  the  radio  horizon. 

Upon  entering  the  TROPO  SU,  the  current  output  range,  rom,  is  updated;  the  tangent  angle  from  the 
source  to  the  surface,  0,,  is  initialized  to  its  value  for  smooth  surface,  and  the  troposcatter  loss 
term,  tlst,  is  initialized  to  its  value  for  smooth  surface,  tlsts.  If  performing  a  terrain  case  (f!er  = 

‘.true.’),  the  range  from  the  source  to  the  tangent  point,  dv  is  initialized,  and  3,  is  initialized  from  a 
previously  calculated  array  of  tangent  angles  to  all  major  terrain  peaks.  Also,  the  terrain  profile  in¬ 
dex,  y,2,  is  initialized  such  that  tx^_x  <  rBU,  <  txjn  . 

The  following  steps  (1  through  12)  are  performed  for  each  output  height  index,;,  from;)  to 

1 .  If  running  a  smooth  surface  case  (fler  =  ‘.false.’)  and  roul  is  less  than  the  minimum  range,  rdtp 
at  which  diffraction  field  solutions  are  applicable  for  the  current  height,  then  the  SU  is  ex¬ 
ited.  Otherwise,  the  SU  program  flow  continues  with  step  2. 

2.  The  tangent  angle  from  the  receiver,  02,  is  initialized  to  that  for  the  f  receiver  height  over 
smooth  surface,  $2 .s. .  However,  if fKr  =  ‘.true.’,  then  the  largest  tangent  angle,  av  and  range, 
d2,  from  the  receiver  to  the  tangent  point  are  determined  using  an  iterative  loop  performed  for 
index,  i,  from  ;',2-l  to  1  in  decrements  of  -1  as  follows: 

r2  ~rom  ~txj 

ty-zoutj  y2 

U2  ~  -  > 
ri  2  aek 

where  aek  is  4/3  times  the  earth’s  radius.  If  the  current  S2  value  is  less  than  a2,  then  0,  is  set 

equal  to  a2  and  d2  is  set  equal  to  r2.  The  index  i  is  decremented  by  one  and  the  above  calcula¬ 
tions  are  repeated. 

3.  Next,  if  rou,  is  less  than  the  sum  of  the  tangent  ranges,  d,  and  dv  then  the  SU  is  exited.  Other¬ 
wise,  SU  program  flow  continues  with  step  4. 

4.  To  account  for  antenna  pattern  effects  over  terrain,  the  ANTPAT  SU  is  referenced  using  the 
tangent  angle  from  the  source  to  determine  the  antenna  pattern  factor, /(&,).  The  troposcatter 
loss  term  is  then  adjusted  from  its  smooth  surface  value  as 

tlst = tlsts  -  20  LOG[/(0 , )] . 

The  following  steps  (5  through  12)  are  now  performed  regardless  of  the  value  offrer. 

5.  The  common  volume  scattering  angle  is  given  by 

0  =$0  +&,+’9;j. 

•stp  1  z 

6.  Next,  the  following  calculations  are  made  to  determine  the  effective  scattering  height  ho : 
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1  ant,  -  zout, 

a =-90,  +9,+—^ - ^ 

9  **p  1  r 

*•  'out 

1  ant  zout, 

b=- 90,.  +9, - & - 1 

2  '*  1 

5= AMIN 


'out 


h  = 


AMAX 
5r..,0 


\2  * 


•  103(l  +  5j 

7.  The  parameter,  r\„  is  then  calculated  as  a  function  of  h: 

n„=5S96^(l+^e-!“»^‘) 

T|,  =  AMIN[i,  AMAX(.01,tl„)] 

8.  Next,  the  parameters,  cr,  and  ct2,  are  defined  as 

rt,  =1 63 +  13.3r|, 
cf2=.4+.16ri? 

where  these  are,  in  turn,  used  to  calculate  the  quantities  r,  and  r2: 

rx  =  AMAX(.l,  rf  ant reJ  0 ) 
r2  -  AMAX(.l,  rf  zout ,  0 ) 

The  quantity  rf  was  previously  determined  by  referencing  the  TROPOINIT  SU. 

9.  The  variables,  ctv  ct2,  rv  and  r2,  are  next  used  to  determine  Hl  and  H2, 

0.,ctx(rx+ct2)~ 


77,  =  AMAX 


772  =  AMAX 


4 

0 .,ctx(r2+ct2)  3 


1 0.  The  frequency  gain  function,  i7„,  is  then  determined  by 


where 


Atfo=6(.6-L0G(qs))L0G(s)L0G(tf,) , 


and 
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<7,  =  AMIN 


■ 

(  r  Y1 

10.,AMAX 

•lA 

l  5/JJ 

AHo  is  not  allowed  to  be  larger  than  Vi (#,+  H2),  and  Ho  is  set  equal  to  0  if  it  becomes  nega¬ 
tive. 

1 1.  Next,  the  troposcatter  loss  is  computed  from 

boss  = tlst +573 0+ rlogoiap  +  Ho . 

12.  Finally,  troposcatter  loss  is  compared  to  propagation  loss.  If  the  difference  between  the 
propagation  loss  and  troposcatter  loss  is  less  than  18  dB,  the  corresponding  power  levels  of 
the  two  loss  values  are  added.  If  the  difference  is  greater  than  18  dB,  the  lesser  of  the  two 
losses  is  used.  Resulting  loss  is  given  by 

rlossj  =  fte  for  rlossj  -  tloss  >  1 8 
rlossj  =  rlossj  -  lOLOG^l  +  for  rlossj -tloss  >  -18 . 

Tables  88  and  89  identify,  describe,  and  provide  units  of  measure  and  computational  source  for 
each  input  and  output  data  element  of  the  TROPO  SU. 


Table  88.  TROPO  SU  input  data  element  requirements. 


Name 

Description 

Units 

Source 

adl 

Array  of  tangent  ranges  from  source  height — 
used  with  terrain  profile 

meters 

TROPOINIT  SU 

adif 

Height  differences  between  antnf  and  all  output 
receiver  heights 

meters 

TROPOINIT  SU 

^ekl 

Twice  4/3  effective  earth’s  radius 

meters 

APMINIT  CSC 

d2s 

Array  of  tangent  ranges  for  all  output  receiver 
heights  over  smooth  surface 

meters 

TROPOINIT  SU 

4/3  effective  earth’s  radius  factor 

N/A 

APM_MOD 

fur 

Logical  flag  indicating  if  terrain  profile  has  been 
specified: 

.true.  =  Terrain  profile  specified 
.false.  =  Terrain  profile  not  specified 

N/A 

TERINIT  SU 

Current  output  range  step  index 

N/A 

Calling  SU 

ifpa 

Number  of  height/range  points  pairs  in  profile, 

tx  ,  ty 

N/A 

APMINIT  CSC 
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Table  88.  TROPO  SU  input  data  element  requirements.  (Continued) 


Name 

Description 

Units 

Source 

J. 

Ending  receiver  height  index  at  which  to  compute 
troposcatter  loss 

N/A 

Calling  SU 

j. 

Starting  receiver  height  index  at  which  to  com¬ 
pute  troposcatter  loss 

N/A 

Calling  SU 

Index  counter  for  adl  and  t?lr  arrays 

N/A 

TROPOINIT  SU 
APMSTEP  CSC 

Ji2 

Index  counter  for  tx  and  ty  arrays  indicating  loca¬ 
tion  of  receiver  range 

N/A 

TROPOINIT  SU 
APMSTEP  CSC 

ktr , 

Number  of  tangent  ranges  from  source  height 

N/A 

TROPOINIT  SU 

rdt 

Array  of  minimum  ranges  at  which  diffraction  field 
solutions  are  applicable  (for  smooth  surface)  for 
all  output  receiver  heights. 

meters 

TROPOINIT  SU 

rr 

Constant  used  for  troposcatter  calculations 

meters'1 

TROPOINIT  SU 

rlogo 

Array  containing  20  times  the  logarithm  of  all 
output  ranges 

N/A 

APMINIT  CSC 

rloss 

Propagation  loss 

dB 

Calling  SU 

ni 

r*  antreJ 

N/A 

TROPOINIT  SU 

mgout 

Array  containing  all  desired  output  ranges 

meters 

APMINIT  CSC 

sn1 

Term  used  in  troposcatter  loss  calculation 

N/A 

TROPOINIT  SU 

€0 

Array  of  angles  used  to  determine  common  vol¬ 
ume  scattering  angle 

radians 

TROPOINIT  SU 

Tangent  angle  from  source  (for  smooth  surface) 

radians 

TROPOINIT  SU 

ms 

Array  of  tangent  angles  from  all  output  receiver 
heights — used  with  smooth  surface 

radians 

TROPOINIT  SU 

mt 

Array  of  tangent  angles  from  source  height — used 
with  terrain  profile 

radians 

TROPOINIT  SU 

tlsts 

Troposcatter  loss  term  for  smooth  surface  case 

dB 

TROPOINIT  SU 

tx 

Range  points  of  terrain  profile 

meters 

TERINIT  SU 

ty 

Adjusted  height  points  of  terrain  profile 

meters 

TERINIT  SU 

zout 

Array  containing  all  desired  output  heights  refer¬ 
enced  to  hmM„ 

meters 

APMINIT  CSC 
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Table  89.  TROPO  SU  output  data  element  requirements. 


Name 

Description 

Units 

Ja 

Index  counter  for  ad\  and  t9rl 
arrays 

N/A 

J,2 

Index  counter  for  tx  and  ty  arrays 
indicating  location  of  receiver 

N/A 

range 

rloss 

Propagation  loss 

dB 

5.3  EXTENDED  OPTICS  INITIALIZATION  (XOINIT)  CSC 

The  XOINIT  CSC  initializes  the  range,  height,  and  angle  arrays  in  preparation  for  XO  calcula¬ 
tions. 

Upon  entering  the  XOINIT  CSC,  the  value  of  imstp  is  tested.  If  imap  is  equal  to  0,  then  the  CSC  is 
exited.  If  imstp  is  greater  than  0,  then  the  following  procedure  is  performed. 

The  arrays  curang  and  cumg,  used  for  storage  of  traced  local  angles  and  ranges,  respectively,  are 
allocated  and  initialized  to  the  range  and  angle  values  stored  mffacz.  The  array  curht  is  allocated 
and  initialized  to  the  height  of  the  top  of  the  PE  calculation  region,  zlim.  The  arrays  igrd,  htout,  and 
prfac,  used  for  storage  of  starting  refractivity  gradient  level  (at  which  to  begin  ray  tracing),  final 
output  heights,  and  propagation  factors  at  a  particular  range,  respectively,  are  also  allocated  and  ini¬ 
tialized  to  0.  Next,  the  dummy  array,  dum,  used  for  temporary  storage,  is  allocated  and  initialized  to 
0. 


lffler  is  ‘.true.’,  then  the  SMOOTH  SU  is  referenced  twice  to  perform  a  10-point  smoothing  opera¬ 
tion  on  the  angle  values,  using  dum  for  temporary  storage  of  angles  after  the  first  pass  smoothing 
operation. 

Next,  the  starting  height  index  at  which  to  begin  XO  calculations  is  initialized  to  the  ending 
height  index  for  PE  calculations,^,  plus  one.  Finally,  dum  is  deallocated  before  exiting. 

Tables  90  and  91  identify,  describe,  and  provide  units  of  measure  and  computational  source  for 
each  input  and  output  data  element  of  the  XOINIT  CSC. 


Table  90.  XOINIT  CSC  input  data  element  requirements. 


Name 

Description 

Units 

Source 

ffacz 

Array  containing  propagation  factor,  range, 

dB, 

FZLIM  SU 

and  propagation  angle  at  zUm 

meters, 

radians 

f,„ 

Logical  flag  indicating  if  terrain  profile  has 
been  specified: 

.true.  =  Terrain  profile  specified 
.false.  =  Terrain  profile  not  specified 

N/A 

TERINIT  SU 
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Table  90.  XOINIT  CSC  input  data  element  requirements.  (Continued) 


Name 

Description 

Units 

Source 

^xostp 

Current  output  range  step  index  for  XO  cal¬ 
culations 

N/A 

Calling  SU 

iz 

Number  of  propagation  factor,  range,  angle 
triplets  stored  in  ffacz 

N/A 

APMINIT  CSC 
FZLIM  SU 

Jend 

Ending  index  within  mloss  of  PE  loss  values 

N/A 

Calling  SU 

^•lim 

Height  limit  for  PE  calculation  region 

meters 

GETTHMAX 

SU 

Table  91 .  XOINIT  CSC  output  data  element  requirements. 


Name 

Description 

Units 

curang 

Array  of  current  local  angles  for  each  ray  being  traced  in  XO 
region 

Radians 

curht 

Array  of  current  local  heights  for  each  ray  being  traced  in  XO 
region 

meters 

cumg 

Array  of  current  local  ranges  for  each  ray  being  traced  in  XO 
region 

meters 

htout 

Final  height  for  each  ray  traced  in  XO  region  at  range,  r  iu 

meters 

l error 

Error  flag 

N/A 

igrd 

Integer  indexes  indicating  at  what  refractive  gradient  level  to 
begin  ray  tracing  for  next  XO  range  step  for  each  ray  in  XO 
region. 

N/A 

Jxstan 

Starting  index  within  mloss  of  XO  loss  values 

N/A 

prfac 

Propagation  factor  for  each  ray  traced  in  XO  region  range,  rou 

dB 

5.3.1  Smooth  (SMOOTH)  SU 

The  SMOOTH  SU  performs  a  i^-point  average  smoothing  operation  on  the  array  passed  to  it. 

The  array  arbef  'is  passed  to  the  SU,  along  with  the  number  of  points  over  which  to  perform  the 
smoothing  operation,  im.  Once  the  smoothing  operation  has  been  performed,  the  resulting 
“smoothed”  points  are  stored  in  arbef  and  passed  back  to  the  calling  routine. 

Tables  92  and  93  identify,  describe,  and  provide  units  of  measure  and  computational  source  for 
each  input  and  output  data  element  of  the  SMOOTH  SU. 
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Table  92.  SMOOTH  SU  input  data  element  requirements. 


Name 

Description 

Units 

Source 

arbef 

Array  of  angles  before  smoothing  opera¬ 
tion 

radians 

Calling  SU 

L 

Number  of  points  over  which  to  perform 
average  smoothing 

N/A 

Calling  SU 

iz 

Number  of  propagation  factor,  range, 
angle  triplets  stored  in  j ffacz 

N/A 

Calling  SU 

Table  93.  SMOOTH  SU  output  data  element  requirements. 


Name 

Description 

Units 

draft 

Array  of  angles  after  smoothing  operation 

radians 

5.4  EXTENDED  OPTICS  STEP  (XOSTEP)  CSC 

The  XOSTEP  CSC  calculates  the  propagation  loss  in  the  XO  region  for  one  output  range  step. 

Upon  entering  the  XOSTEP  CSC,  the  current  execution  mode  is  checked  to  determine  if  XO  cal¬ 
culations  will  be  necessary  (ihybrid  *  0).  If  ihybrid  is  0,  then  the  CSC  is  exited. 

If  ihybrid  is  not  equal  to  0,  the  output  range,  roul,  and  the  square  of  the  output  range,  r  ,  are  updated. 
The  mloss  values  are  initialized  to  -1  from  the  index  of  the  start  of  XO  calculations,  to  the 
maximum  number  of  height  output  points,  nwm.  The  EXTO  SU  is  then  referenced  to  calculate  propa¬ 
gation  loss  values  in  the  XO  region.  Loss  values  are  returned  from  mloss.  to  mloss.  . 

If  FE  and  RO  calculations  need  to  be  performed  (ihybrid  =1),  then  the  indices  jfi  and  jfe,  indicating  the 
height  index  at  which  to  start  and  end  FE  calculations,  respectively,  are  determined.  The  FEM  SU  is 
then  referenced  to  compute  propagation  loss  values  from  mloss ^  to  mloss •. .  Similarly  for  RO  calcu¬ 
lations,  the  indices,  jn,  and  jn  are  determined,  and  the  ROM  SU  is  referenced  to  compute  propagation 
loss  values  from  mloss.  to  mloss.  . 

hs  he 

Finally,  the  index,  jand,  is  set  equal  to  the  maximum  of  and  nmM.  If  absorption  loss  needs  to  be 
calculated  (kab>0),  then  loss  due  to  gaseous  absorption  is  computed  and  added  to  propagation  loss 
values  from  mloss,  to  mloss,  . 

Jxstart  Jxend 

Tables  94  and  95  identify,  describe,  and  provide  units  of  measure  and  computational  source  for 
each  input  and  output  data  element  of  the  XOSTEP  CSC. 
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Table  94.  XOSTEP  CSC  input  data  element  requirements. 


Name 

Description 

Units 

Source 

Gaseous  absorption  attenuation  rate 

dB/km 

GASABS  SU 

htfe 

Array  containing  the  height  at  each  output  range 
separating  the  FE  region  from  the  RO  region  (full 
hybrid  mode),  or  the  FE  region  from  the  PE  region 
(partial  hybrid  mode) 

meters 

FILLHT  SU 

htu« 

Maximum  height  relative  to  hmMtr 

meters 

TERINIT  SU 

f hybrid 

Integer  indicating  which  sub-models  will  be  used: 

0  =  Pure  PE  model 

1  =  Full  hybrid  model  (PE  +  FE  +  RO  +  XO) 

2  =  Partial  hybrid  model  (PE  +  XO) 

N/A 

GETMODE  SU 

Current  output  range  step  index 

N/A 

Calling  OSCI 

Jxstan 

Index  at  which  valid  loss  values  in  mloss  start 

N/A 

Calling  CSC1 

Kn 

Gaseous  absorption  calculation  flag: 

=  0;  no  absorption  loss 

&  "  =  1 ;  compute  absorption  loss  based  on  air  tem¬ 
perature,  t^r,  and  absolute  humidity,  abslum 
k  =  2;  compute  absorption  loss  based  on  specified 
absorption  attenuation  rate,  \ 

N/A 

APMINIT  CSC 

Integer  number  of  output  height  points  desired 

N/A 

Calling  CSCI 

mgout 

Array  containing  all  desired  output  ranges 

meters 

APMINIT  CSC 

rsqrd 

Array  containing  the  square  of  all  desired  output 
ranges 

meters2 

APMINIT  CSC 

zout 

Array  containing  all  desired  output  heights  refer¬ 
enced  to  hminler 

meters 

APMINIT  CSC 

Table  95.  XOSTEP  CSC  output  data  element  requirements. 


Name 

Description 

Units 

Jxend 

Index  at  which  valid  loss  values  in  mloss  end 

N/A 

mloss 

Propagation  loss  array 

cB 

ro«< 

Current  desired  output  range 

meters 
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5.4.1  Extended  Optics  (EXTO)  SU 

The  EXTO  SU  calculates  propagation  loss  based  on  XO  techniques.  The  SU  performs  a  ray  trace 
on  all  rays  within  one  output  range  step  and  returns  the  propagation  loss  up  to  the  necessary  height, 
storing  all  angle,  height,  and  range  information  for  subsequent  ray  tracing  upon  the  next  reference  to 
the  SU. 

Upon  entering  the  SU,  internal  one-line  ray  trace  functions  are  defined  as 

RADAl(a,b)=a2+2grdb 

RP(a,fc)=aH - 

Srd 

AP  (a,b)=a+bgrd 

h2-c2 

HP  (a,b)=a  + - 

2 8rd 


and  a  one-line  interpolation  function  is  also  defined  as 

PL  I  NT(W, ,  pl2  ,f,J=  pi,  +fmc(pk-pl,). 

Next,  several  variables  are  initialized:  the  free-space  loss  at  the  current  output  range,  fslrout,  is  up¬ 
dated;  the  starting  and  ending  index  counters,  izs  and  ize,  for  the  local  angle,  range,  and  height  arrays 
are  initialized  to  1  for  the  first  reference  to  the  EXTO  SU;  and  the  refractivity  profile  starting  index, 
i.  is  also  initialized  to  1  for  the  first  reference  to  the  EXTO  SU.  The  index,  iz.,  is  then  determined 
such  that  cumgU'  <  roul  <  cumgiz  +t. 

The  following  ray  trace  steps  (1  through  3)  are  performed  for  each  ray  (i.e.,  each  f'  angle,  range, 
and  height  triplet,  for  j  ranging  from  izs  to  iz) 

1.  At  the  start  of  the  ray  trace,  the  current  local  angle,  (a),  range,  (r0),  height,  (h),  and  refrac¬ 
tive  gradient  index,  (igrad),  are  initialized  to  curang.,  cumgp  curht,  and  igrdp  respectively. 
Next,  refractive  profile  index,  i^,  is  initialized  to  the  maximum  of  j  or  i^.  Finally,  the  refrac¬ 
tivity  gradient,  grd,  is  set  equal  to  the  gradient  at  the  igra*  level  of  the  i*  profile,  grad.^  .  . 

Next,  the  following  ray  trace  steps  (a  through  d)  are  performed  until  the  current  local  range, 
r0,  becomes  greater  than  or  equal  to  roul. 

a.  The  ending  range,  r,,  in  the  ray  trace  segment  is  set  equal  to  the  minimum  of ffacz, ,  +I  or 
roul.  If  is  equal  to  the  number  of  stored  triplets,  iz,  then  r,  is  set  equal  to  rBUt. 

b.  The  jth  ray  is  then  traced  to  rl  and  the  resulting  angle  and  height  at  the  end  of  the  seg¬ 
ment  is  determined  via  the  in-line  functions  as 

ax  =AP(<z0,fj— r0) 

/i1=HP(ft0,a1,a0) 
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c.  The  ending  height  hx  is  then  compared  to  the  next  height  level  in  the  current  refractivity 
profile,  htr.  and  if  h.  is  greater  than  this  height  level,  it  is  set  equal  to  htr  and 

r  *gnuT1'trp  grad  ' 

a  new  ax  and  r,  are  computed  from 

a1=^RADAl(a0,^-/j0) 
rx  =RP(r0,a,-a0) 

igmd  is  then  set  to  the  minimum  of  igrad+ 1  or  ZW.^-1. 

d.  The  starting  angle,  range,  and  height  for  the  next  ray  trace  segment  is  updated,  and  if 
necessary,  the  refractivity  profile  index  iw  is  updated  to  the  minimum  of  z'^+l  or  izt.  Steps 
la  through  Id  are  then  repeated  for  the  next  ray  segment. 

2.  Once  the  ray  has  been  traced  to  a  range  of  rou!  or  greater,  the  current  angle,  range,  and  height 
arrays,  curang,  cumg,  and  curht,  respectively,  are  updated  to  the  values  for  a0,  r0,  and  h0  for 
subsequent  references  to  the  EXTO  SU. 

3.  The  counter,  k,  for  the  propagation  factor  array,  prfac,  and  corresponding  height  array, 
htout,  is  incremented  by  one  and  the  arrays  are  updated  according  to 

prfack=  ffacz,j 

htout k  =  /Zq 

Once  all  rays  have  been  traced,  the  starting  profile  index,  is  updated  to  ize  for  the  next  refer¬ 
ence  to  the  EXTO  SU,  and  the  counter,  k,  is  again  incremented  by  one  and  the  last  value  of  prfac  and 
htout  are  updated  as  follows, 

prfack  =ffroutl.ap 
htout k  =  Jfrout2i ^ 

The  number  of  traced  XO  height  points,  nm,  at  the  current  output  range  is  then  set  to  k.  Note  that  at 
this  point,  all  output  heights  in  htout  are  decreasing  from  htout ,  to  htout and  all  traced  heights  in 

curht  are  decreasing  from  curht ^  to  curht ^ 

The  starting  index,  izs,  is  then  adjusted  (for  the  next  reference  to  the  EXTO  SU)  if  the  topmost 
traced  height,  curht ^ ,  is  greater  than  ht,im.  If  performing  a  terrain  case,  the  output  height  points  may 
not  be  continually  decreasing  from  htout x  to  htout ^  In  this  case,  htout  is  sorted,  along  with  prfac, 
such  that  all  height  values  are  steadily  decreasing.  The  ending  index,  at  which  XO  loss  values  will 
be  calculated  and  stored  in  mloss,  is  set  equal  to  nzout  and  adjusted,  if  necessary,  such  that  zout.^  is 
less  than  htout  v  Now,  the  counter  index,  ix,  is  initialized  to  nm.  Next,  the  propagation  loss  values  are 
determined  via  linear  interpolation  on  the  values  in  prfac.  The  following  steps  (1  through  3)  are  per¬ 
formed  for  each  output  height  point  zout.  from;^  to  jx. 

1.  The  counter  ix  is  adjusted  (if  necessary)  such  that  htout u  <  zout}  <  htout . 

2.  The  propagation  factor,  Ffac,  at  height,  zout ,  is  then  calculated  according  to 

Ffac  =  PLINT  ( prfac ^ ,  prfac ^ ,  frac ) , 
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where 


zout .  -  htout ■ 

f  = _ l _ f* 

htout ^  -  htout u 

3.  The  propagation  loss  is  now  calculated  as 


rlosSj  =  Ffac  +  fslrout 


Once  all  propagation  loss  values  have  been  computed,  the  TROPO  SU  is  referenced  to  compute 
troposcatter  loss,  if  necessary.  Finally,  the  loss  is  converted  to  centibels  and  stored  in  mloss  before 
exiting. 

Tables  96  and  97  identify,  describe,  and  provide  units  of  measure  and  computational  source  for 
each  input  and  output  data  element  of  the  EXTO  SU.  Table  101  identifies  terms  that  are  used  inter¬ 
nal  to  the  EXTO  SU  and  whose  value  must  be  retained  from  SU  call  to  SU  call  for  reasons  of  com¬ 
putational  efficiency. 


Table  96.  EXTO  SU  input  data  element  requirements. 


Name 

Description 

Units 

Source 

curang 

Array  of  current  local  angles  for  each  ray  being 
traced  in  XO  region 

radians 

EXTO  SU 
XOINIT  CSC 

curht 

Array  of  current  local  heights  for  each  ray  being 
traced  in  XO  region 

meters 

EXTO  SU 
XOINIT  CSC 

cumg 

Array  of  current  local  ranges  for  each  ray  being 
traced  in  XO  region 

meters 

EXTO  SU 
XOINIT  CSC 

ffacz 

Array  containing  propagation  factor,  range,  and 
propagation  angle  at  zUm 

dB, 

meters, 

radians 

FZLIM  SU 

ffrout 

Array  of  propagation  factors  at  each  output  range 
beyond  raz  and  at  height,  zlm 

dB 

CALCLOS 

SU 

fslr 

Free-space  loss  array  for  output  ranges 

dB 

APMINIT 

CSC 

f ter 

Logical  flag  indicating  if  terrain  profile  has  been 
specified: 

.true.  =  Terrain  profile  specified 
.false.  =  Terrain  profile  not  specified 

N/A 

TERINIT  SU 

grad 

Two-dimensional  array  containing  gradients  of  each 
profile  used  in  XO  calculations 

M-units 

/meter 

SAVEPRO 

SU 
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Table  96.  EXTO  SU  input  data  element  requirements.  (Continued) 


Name 

Description 

Units 

Source 

hlim 

Array  containing  height  at  each  output  range  sepa¬ 
rating  the  RO  region  from  the  PE  (at  close  ranges) 
and  XO  (at  far  ranges)  regions 

meters 

GETTHMAX 

SU 

am 

Maximum  height  relative  to  hmMfr 

meters 

TERINIT  SU 

htr 

Two-dimensional  array  containing  heights  of  each 
profile  used  in  XO  calculations 

meters 

SAVEPRO 

SU 

igrd 

Integer  indexes  indicating  at  what  refractive  gradient 
level  to  begin  ray  tracing  for  next  XO  range  step  for 
each  ray  in  XO  region. 

N/A 

XOINIT  CSC 

L: 

Index  of  output  range  step  in  which  to  begin  storing 
propagation  factor  and  outgoing  angle  for  XO  region 

N/A 

APMINIT 

CSC 

V 

Current  output  range  step  index 

N/A 

Calling  SU 

^tropo 

Troposcatter  calculation  flag: 
i  =  0;  no  troposcatter  calcs 
iiwpo  =  1 ;  troposcatter  calcs 

N/A 

Calling  CSCI 

iz 

Number  of  propagation  factor,  range,  and  angle  trip¬ 
lets  stored  in  ffacz 

N/A 

FZLIM  SU 

j,< 

Index  at  which  valid  loss  values  in  mloss  start 

N/A 

Calling  SU 

Ivl 

Number  of  height  levels  in  each  profile  used  in  XO 
calculations 

N/A 

SAVEPRO 

SU 

nzo,a 

Integer  number  of  output  height  points  desired 

N/A 

Calling  CSCI 

r out 

Current  output  range 

meters 

Calling  SU 

zout 

Array  containing  all  desired  output  heights  refer¬ 
enced  to  h„imr 

meters 

APMINIT 

CSC 

Table  97.  EXTO  SU  output  data  element  requirements. 


Name 

Description 

Units 

curang 

Array  of  current  local  angles  for  each  ray  being  traced  in  XO 
region 

radians 

curht 

Array  of  current  local  heights  for  each  ray  being  traced  in  XO 
region 

meters 

curng 

Array  of  current  local  ranges  for  each  ray  being  traced  in  XO 
region 

meters 

hlim 

Array  containing  height  at  each  output  range  separating  the 

RO  region  from  the  PE  (at  close  ranges)  and  XO  (at  far 
ranges)  regions 

meters 
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Table  97.  EXTO  SU  output  data  element  requirements.  (Continued) 


Name 

Description 

Units 

htout 

Final  height  for  each  ray  traced  in  XO  region  at  range, 

meters 

L 

Index  at  which  valid  loss  values  in  mloss  end 

N/A 

mloss 

Propagation  loss  array 

cB 

prfac 

Propagation  factor  for  each  ray  traced  in  XO  region  range,  rOM 

dB 

rloss 

Propagation  loss 

dB 

Table  98.  EXTO  SU  save  data  element  requirements. 


Name 

Description 

Units 

*rps 

Starting  index  counter  for  refractivity  profiles 

N/A 

K 

Ending  index  in  curang ,  cumg,  and  curht  to  trace  to 

rout 

N/A 

K 

Starting  index  in  curang ,  cumg ,  and  curht  to  trace 

N/A 

t°rout 

5.5  APMCLEAN  CSC 

The  APMCLEAN  CSC  deallocates  all  dynamically  dimensioned  arrays  used  in  one  complete  run 
of  APM  calculations.  Upon  entry,  all  arrays  that  were  dynamically  allocated  at  the  beginning  of  the 
current  application  are  now  deallocated. 

Tables  99  and  100  identify,  describe,  and  provide  units  of  measure  and  computational  source  for 
each  input  and  output  data  element  of  the  APMCLEAN  CSC. 


Table  99.  APMCLEAN  CSC  input  data  element  requirements. 


Name 

Description 

Units 

Source 

adl 

Array  of  tangent  ranges  from  source  height — 
used  with  terrain  profile 

meters 

TROPOINIT  SU 

adif 

Height  array  used  for  troposcatter  calcs 

meters 

TROPOINIT  SU 

curang 

Array  of  current  local  angles  for  each  ray  being 
traced  in  XO  region 

radians 

EXTO  SU 
XOINIT  CSC 

curht 

Array  of  current  local  heights  for  each  ray  being 
traced  in  XO  region 

meters 

EXTO  SU 
XOINIT  CSC 

cumg 

Array  of  current  local  ranges  for  each  ray  being 
traced  in  XO  region 

meters 

EXTO  SU 
XOINIT  CSC 
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Table  99.  APMCLEAN  CSC  input  data  element  requirements.  (Continued) 


Name 

Description 

Units 

Source 

dls 

Array  of  tangent  ranges  for  all  output  receiver 
heights  over  smooth  surface 

meters 

TROPOINIT  SU 

dielec 

Two-dimensional  array  containing  the  relative 

N/A, 

Calling  CSC1, 

permittivity  and  conductivity;  dielecu  and  dielecljt 
respectively. 

S/m 

DIEINIT  SU 

envpr 

Complex  (refractivity)  phase  term  array  interpo¬ 
lated  every  A zPE  in  height 

N/A 

PHASE2  SU 

ffo.CZ 

Array  containing  propagation  factor,  range,  and 
propagation  angle  at  zUm 

dB,  meters, 
radians 

FZLIM  SU 

ffrout 

Array  of  propagation  factors  at  each  output 
range  beyond  ra.  and  at  height,  zUm 

dB 

CALCLOS  SU 

fiit 

Cosine-tapered  (Tukey)  filter  array 

N/A 

APMINIT  CSC 

fiitp 

Array  filter  for  spectral  estimation  calculations 

N/A 

APMINIT  CSC 

frsp 

Complex  free-space  propagator  term  array 

N/A 

PHASE1  SU 

fslr 

Free-space  loss  array  for  output  ranges 

dB 

APMINIT  CSC 

gr 

Intermediate  M-unit  gradient  array,  RO  region 

(M-unit/ 

111)10* 

REFINIT  SU 

grad 

Two-dimensional  array  containing  gradients  of 
each  profile  used  in  XO  calculations 

M-units 

/meter 

SAVEPRO  SU 

hfangr 

Array  of  user-defined  cut-back  angles.  This  is 
used  only  for  user-defined  height-finder  antenna 
type. 

radians 

APMINIT  CSC 

hlim 

Array  containing  height  at  each  output  range 
separating  the  RO  region  from  the  PE  (at  close 
ranges)  and  XO  (at  far  ranges)  regions 

meters 

GETTHMAX  SU 

href 

Heights  of  refractivity  profile  with  respect  to  yn/ 

meters 

PROFINT  SU 

ht 

PE  mesh  height  array  of  size,  nffl 

meters 

APMINIT  CSC 

htdurn 

Height  array  for  current  interpolated  profile 

meters 

REFINIT  SU 
REFINTER  SU 

htfe 

Array  containing  the  height  at  each  output  range 
separating  the  FE  region  from  the  RO  region 
(full  hybrid  mode),  or  the  FE  region  from  the  PE 
region  (partial  hybrid  mode) 

meters 

FILLHT  SU 

htout 

Final  height  for  each  ray  traced  in  XO  region  at 
range  roul 

meters 

XOINIT  CSC 

htr 

Two-dimensional  array  containing  heights  of 
each  profile  used  in  XO  calculations 

meters 

SAVEPRO  SU 
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Table  99.  APMCLEAN  CSC  input  data  element  requirements.  (Continued) 


Name 

Description 

Units 

Source 

igrd 

Integer  indexes  indicating  at  what  refractive 
gradient  level  to  begin  ray  tracing  for  next  XO 
range  step  for  each  ray  in  XO  region. 

N/A 

XOINIT  CSC 

igmd 

Integer  array  containing  ground  type  composi¬ 
tion  for  given  terrain  profile — can  vary  with 
range.  Different  ground  types  are: 

0  =  Seawater 

1  =  Freshwater 

2  =  Wet  ground 

3  =  Medium  dry  ground 

4  =  Very  dry  ground 

5=  Ice  at  -1°C 

6  =  Ice  at  -10°C 

7  =  User-defined  (in  which  case,  values  of 

relative  permittivity  and  conductivity  must 
be  given). 

N/A 

Calling  CSCI 

Ivl 

Number  of  height  levels  in  each  profile  used  in 

XO  calculations 

N/A 

SAVEPRO  SU 

2 

nc 

Array  of  complex  dielectric  constants 

N/A 

DIEINIT  SU 

prfac 

Propagation  factor  for  each  ray  traced  in  XO 
region  range,  rcaI 

dB 

XOINIT  CSC 

profint 

Profile  interpolated  to  every  A zPE  in  height 

M-units 

REFINTER  SU 

Q 

Intermediate  M-unit  difference  array,  RO  region 

2M  10-6 

REFINIT  SU 

rdt 

Array  of  minimum  ranges  at  which  diffraction 
field  solutions  are  applicable  (for  smooth  sur¬ 
face)  for  all  output  receiver  heights. 

meters 

TROPOINIT  SU 

refdum 

M-unit  array  for  current  interpolated  profile 

M-units 

REFINIT  SU 
REFINTER  SU 

refref 

Refractivity  profile  with  respect  to  yref 

M-units 

PROFINT  SU 

rfacl 

Propagation  factor  at  valid  output  height  points 
from  PE  field  at  range,  rto. 

dB 

CALCLOS  SU 

rfac2 

Propagation  factor  at  valid  output  height  points 
from  PE  field  at  range,  r 

dB 

CALCLOS  SU 

rgmd 

Array  containing  ranges  at  which  varying  ground 
types  apply. 

meters 

Calling  CSCI 

132 


Table  99.  APMCLEAN  CSC  input  data  element  requirements.  (Continued) 


Name 

Description 

Units 

Source 

rlogo 

Array  containing  20  times  the  logarithm  of  all 
output  ranges 

N/A 

APMINIT  CSC 

rloss 

Propagation  loss 

dB 

ALLARRAY  APM 
CALCLOS  SU 
EXTO  SU 
TROPO  SU 

rm 

Intermediate  M-unit  array,  RO  region 

M10-6 

REFINIT  SU 

mgout 

Array  containing  all  desired  output  ranges 

meters 

APMINIT  CSC 

root 

Array  of  RT  to  the  t*  power  (e.g.,  root,  =R‘t) 

N/A 

GETALN  SU 

rootm 

Array  of  -RT  to  the  i1”  power  (e.g.,  rootm, 

=(-*r)') 

N/A 

GETALN  SU 

j 

rsqrd 

Array  containing  the  square  of  all  desired  output 
ranges 

meters2 

APMINIT  CSC 

sip 

Slope  of  each  segment  of  terrain 

N/A 

TERINIT  SU 

tfO 

Array  of  angles  used  to  determine  common  vol¬ 
ume  scattering  angle 

radians 

TROPOINIT  SU 

i32s 

Array  of  tangent  angles  from  all  output  receiver 
heights — used  with  smooth  surface 

radians 

TROPOINIT  SU 

m  t 

Array  of  tangent  angles  from  source  height  - 
used  with  terrain  profile 

radians 

TROPOINIT  SU 

tx 

Range  points  of  terrain  profile 

meters 

TERINIT  SU 

ty 

Adjusted  height  points  of  terrain  profile 

meters 

TERINIT  SU 

U 

Complex  PE  field 

pV/m 

PESTEP  SU 

Ulast 

Complex  PE  field  at  range,  rlaa 

pV/m 

PESTEP  SU 

w 

Difference  equation  of  complex  PE  field 

pV/m2 

PESTEP  SU 

xdum 

Real  part  of  complex  field  array 

pV/m 

FFT  SU 

xp 

Real  part  of  spectral  portion  of  PE  field 

pV/m 

SPECEST  SU 

ydum 

Imaginary  part  of  complex  field  array 

pV/m 

FFT  SU 

ym 

Particular  solution  of  difference  equation 

pV/m 

PESTEP  SU 

yp 

Imaginary  part  of  spectral  portion  field 

pV/m 

SPECEST  SU 

zout 

Array  containing  all  desired  output  heights  refer- 
enced  to  h  . 

meters 

APMINIT  CSC 
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Table  99.  APMCLEAN  CSC  input  data  element  requirements.  (Continued) 


Name 

Description 

Units 

Source 

zoutmcij 

f  output  height  point  relative  to  “real”  antrcf 

meters 

APMINIT  CSC 

zoutpcij 

f  output  height  point  relative  to  “image”  antrr/ 

meters 

APMINIT  CSC 

zRO 

Array  of  output  heights  in  RO  region 

meters 

APMINIT  CSC 

zrt 

Intermediate  height  array,  RO  region 

meters 

REFINIT  SU 

Table  100.  APMCLEAN  CSC  output  data  element  requirements. 


Name 

Description 

Units 

f error 

Error  flag  indicator:  non-zero  if  error  has 

N/A 

occured  in  deallocation  procedure 

6.  REQUIREMENTS  TRACEABILITY 


This  section  provides  the  traceability  of  the  design  of  the  APM  CSCI.  Table  101  presents  this 
traceability  between  the  corresponding  sections  of  the  Software  Requirements  Specification  (SRS) 
and  the  Software  Design  Description  (SDD)  and  between  the  various  components  of  the  APM  CSCI. 


Table  1 01 .  Traceability  Matrix  between  the  SRS  and  the  SDD. 


Software  Requirements  Specification 

Software  Design  Description 

SRS  Requirement  Name 

SRS 

Paragraph 

Number 

Software  Design  Description  Name 

SDD 

Paragraph 

Number 

CSCI  Capability  Requirements 

3.1 

CSCI-WIDE  DESIGN  DECISIONS 

3 

CSCI  Capability  Requirements 

3.1 

CSCI  Components 

4.1 

CSCI  Capability  Requirements 

3.1 

Concept  of  Execution 

4.2 

Advance  Propagation  Initialization 
(APMINIT)  CSC 

3.1.1 

Advance  Propagation  Initialization 
(APMINIT)  CSC 

5.1 

Allocate  Arrays  APM 
(ALLARRAY_APM)  SU 

3.1. 1.1 

Allocate  Arrays  APM 
(ALLARRAY_APM)  SU 

5.1.1 

Allocate  Array  PE  (ALLARRAY  PE) 
SU 

3.1. 1.2 

Allocate  Array  PE 
(ALLARRAY_PE)  SU 

5.1.2 

Allocate  Array  XO  (ALLARRAY  XO) 
SU 

3.1.1 .3 

Allocate  Array  XO 
(ALLARRAY_XO)  SU 

5.1.3 
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Table  101 .  Traceability  Matrix  between  the  SRS  and  the  SDD.  (Continued) 


Software  Requirements  Specification 

Software  Design  Description 

SRS  Requirement  Name 

SRS 

Paragraph 

Number 

Software  Design  Description  Name 

SDD 

Paragraph 

Number 

Antenna  Pattern  (ANTPAT)  SU 

3.1 .1.4 

Antenna  Pattern  (ANTPAT)  SU 

5.1.4 

Dielectric  Initialization  (DIEINIT)  SU 

3.1.1 .5 

Dielectric  Initialization  (DIEINIT)  SU 

5.1.5 

Fast-Fourier  Transform  (FFT)  SU 

3.1 .1.6 

Fast-Fourier  Transform  (FFT)  SU 

5.1.6 

FFT  Parameters  (FFTPAR)  SU 

3.1.1 .7 

FFT  Parameters  (FFTPAR)  SU 

5.1.7 

Fill  Height  Arrays  (FILLHT)  SU 

3.1 .1.8 

Fill  Height  Arrays  (FILLHT)  SU 

5.1.8 

Gaseous  Absorption  (GASABS)  SU 

3.1 .1.9 

Gaseous  Absorption  (GASABS)  SU 

5.1.9 

Get  Alpha  Impedance  (GETALN) 

SU 

3.1.1.10 

Get  Alpha  Impedance  (GETALN) 

SU 

5.1.10 

Get  Mode  (GETMODE)  SU 

3.1.1.11 

Get  Mode  (GETMODE)  SU 

5.1.11 

Get  Maximum  Angle  (GETTHMAX) 
SU 

3.1.1.12 

Get  Maximum  Angle  (GETTHMAX) 
SU, 

5.1.12 

Interpolate  Profile  (INTPROF)  SU 

3.1.1.13 

Interpolate  Profile  (INTPROF)  SU 

5.1.13 

Free-Space  Propagator  Phase 

Term  (PHASE1)  SU 

3.1.1.14 

Free-Space  Propagator  Phase 

Term  (Phasel)  SU 

5.1.14 

Environmental  Propagator  Phase 
Term  (PHASE2)  SU 

3.1.1.15 

Environmental  Propagator  Phase 
Term  (Phase2)  SU 

5.1.15 

Profile  Reference  (PROFREF)  SU 

3.1.1.16 

Profile  Reference  (PROFREF)  SU 

5.1.16 

Refractivity  Initialization  (REFINIT) 

SU 

3.1.1.17 

Refractivity  Initialization  (REFINIT) 

SU 

5.1.17 

Sine  Fast-Fourier  Transform 
(SINFFT)  SU 

3.1.1.18 

Sine  Fast-Fourier  Transform 
(SINFFT)  SU 

5.1.18 

Terrain  Initialization  (TERINIT)  SU 

3.1.1.19 

Terrain  Initialization  (TERINIT)  SU 

5.1.19 

Troposcatter  Initialization 
(TROPOINIT)  SU 

3.1.1.20 

Troposcatter  Initialization 
(TROPOINIT)  SU 

5.1.20 

Starter  Field  Initialization  (XYINIT) 

SU 

3.1.1.21 

Starter  Field  Initialization  (XYINIT) 

SU 

5.1.21 

Advance  Propagation  Model  Step 
(APMSTEP)  CSC 

3.1.2 

Advance  Propagation  Model  Step 
(APMSTEP)  CSC 

5.2 

Calculate  Propagation  Loss 
(CALCLOS)  SU 

3.1. 2.1 

Calculate  Propagation  Loss 
(CALCLOS)  SU 

5.2.1 

DoShift  SU 

3.1 .2.2 

DoShift  SU 

5.2.2 

Flat  Earth  Model  (FEM)  SU 

3.1 .2.3 

Flat  Earth  Model  (FEM)  SU 

5.2.3 
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Table  101.  Traceability  Matrix  between  the  SRS  and  the  SDD.  (Continued) 


Software  Requirements  Specification 

Software  Design  Description 

SRS  Requirement  Name 

SRS 

Paragraph 

Number 

Software  Design  Description  Name 

SDD 

Paragraph 

Number 

Free-Space  Range  Step  (FRSTP)  SU 

3.1 .2.4 

Free-Space  Range  Step  (FRSTP) 

SU 

5.2.4 

FZLIM  SU 

3.1. 2.5 

FZLIM  SU 

5.2.5 

Get  Propagation  Factor  (GETPFAC) 

SU 

3.1. 2.6 

Get  Propagation  Factor  (GETPFAC) 
SU 

5.2.6 

Get  Reflection  Coefficient 
(GETREFCOEF)  SU 

3.1. 2.7 

Get  Reflection  Coefficient 
(GETREFCOEF)  SU 

5.2.7 

Parabolic  Equation  Step  (PESTEP) 

SU 

3.1. 2.8 

Parabolic  Equation  Step  (PESTEP) 
SU 

5.2.8 

Ray  Trace  (RAYTRACE)  SU 

3. 1.2.9 

Ray  Trace  (RAYTRACE)  SU 

5.2.9 

Refractivity  Interpolation  (REFINTER) 
SU 

3.1.2.10 

Refractivity  Interpolation 
(REFINTER)  SU 

5.2.10 

Remove  Duplicate  Refractivity  Levels 
(REMDUP)  SU 

3.1.2.11 

Remove  Duplicate  Refractivity  Lev¬ 
els  (REMDUP)  SU 

5.2.11 

Ray  Optics  Calculation  (ROCALC)  SU 

3.1.2.12 

Ray  Optics  Calculation  (ROCALC) 

SU 

5.2.12 

Ray  Optics  Loss  (ROLOSS)  SU 

3.1.2.13 

Ray  Optics  Loss  (ROLOSS)  SU 

5.2.13 

Ray  Optics  Model  (ROM)  SU 

3.1.2.14 

Ray  Optics  Model  (ROM)  SU 

5.2.14 

Save  Profile  (SAVEPRO)  SU 

3.1.2.15 

Save  Profile  (SAVEPRO)  SU 

5.2.15 

Spectral  Estimation  (SPECEST)  SU 

3.1.2.16 

Spectral  Estimation  (SPECEST)  SU 

5.2.16 

Troposcatter  (TROPO)  SU 

3.1.2.17 

Troposcatter  (TROPO)  SU 

5.2.17 

1 

Extended  Optics  Initialization 
(XOINIT)  CSC 

3.1.3 

Extended  Optics  Initialization 
(XOINIT)  CSC 

1 

5.3 

Smooth  (SMOOTH)  SU 

3.1. 3.1 

Smooth  (SMOOTH)  SU 

5.3.1 

Extended  Optics  Step  (XOSTEP) 

CSC 

3.1.4 

Extended  Optics  Step  (XOSTEP) 

CSC 

5.4 

Extended  Optics  (EXTO)  SU 

3.1. 4.1 

Extended  Optics  (EXTO)  SU 

5.4.1 

Advanced  Propagation  Model  Clean 
(APMCLEAN)  CSC 

3.1.5 

Advanced  Propagation  Model  Clean 
(APMCLEAN)  CSC 

5.5 

CSCI  External  Interface  Require¬ 
ments 

3.2 

External  Interface 

4.3.2 

CSCI  Internal  Interface  Requirements 

3.3 

Internal  Interface 

4.3.3 
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Table  101 .  Traceability  Matrix  between  the  SRS  and  the  SDD.  (Continued) 


Software  Requirements  Specification 

Software  Design  Description 

SRS  Requirement  Name 

SRS 

Paragraph 

Number 

Software  Design  Description  Name 

SDD 

Paragraph 

Number 

CSCI  Internal  Data  Requirements 

3.4 

Internal  Data 

4.3.4 

Environmental  Radio  Refractivity  field 
Data  Element 

3.5.1 

Environmental  Radio  Refractivity 
field  Data  Element 

7.2 

Terrain  Profile  Data  Element 

3.5.2 

Terrain  Profile  Data  Element 

7.3 

Implementation  and  Application  Con¬ 
siderations 

3.10.1 

Implementation  and  Application 
Considerations 

7.1 

7.  NOTES 

7.1  APM  CSCI  IMPLEMENTATION  AND  APPLICATION  CONSIDERATIONS 

The  calling  TESS-NC  CSCI  application  will  determine  the  employment  of  the  APM  CSCI.  How¬ 
ever,  the  intensive  computational  nature  of  the  APM  CSCI  must  be  considered  when  designing  an 
efficient  calling  application.  For  this  reason,  the  APM  CSCI  is  designed  with  flexibility  for  various 
hardware  suites  and  computer  resource  management  considerations.  This  APM  CSCI  applies  only 
to  a  coverage  and  loss  diagram  application.  The  following  highly  recommended  guidelines  are  pro¬ 
vided  to  aid  in  the  design  of  a  coverage  or  loss  diagram  application  that  will  most  efficiently  employ 
the  APM  CSCI. 

The  APM  CSCI  propagation  loss  calculations  are  independent  of  any  target  or  receiver  considera¬ 
tions,  therefore,  for  any  EM  emitter,  one  execution  of  the  APM  CSCI  may  be  used  to  create  both  a 
coverage  diagram  and  a  loss  diagram.  Since  both  execution  time  and  computer  memory  allocation 
should  be  a  consideration  when  employing  this  model,  it  is  most  efficient  and  appropriate  to  execute 
the  APM  CSCI  for  a  particular  EM  system/environmental/terrain  combination  before  executing  any 
application.  The  output  of  the  APM  CSCI  would  be  stored  in  a  file  which  would  be  accessed  by 
multiple  applications. 

For  example,  the  TESS-NC  operator  may  desire  a  coverage  diagram  for  one  particular  radar  sys¬ 
tem.  At  the  beginning  of  the  coverage  diagram  application,  a  check  would  be  made  for  the  existence 
of  a  previously  created  APM  CSCI  output  file  appropriate  for  the  EM  system,  environmental,  and 
terrain  conditions.  If  such  a  file  exists,  the  propagation  loss  values  would  be  read  from  the  file  and 
used  to  create  the  coverage  diagram.  If  the  file  does  not  exist,  the  APM  CSCI  would  be  executed  to 
create  one.  As  the  APM  CSCI  is  executing,  its  output  could  be  routed  simultaneously  to  a  graphics 
display  device  and  a  file.  This  file  could  then  be  used  in  the  loss  diagram  application  should  the 
operator  also  choose  it.  Two  distinct  applications,  therefore,  are  achieved  with  only  one  execution  of 
the  APM  CSCI.  Additionally,  should  the  operator  desire  an  individual  coverage  diagram  for  each  of 
multiple  targets,  or  a  single  coverage  diagram  illustrating  radar  detection  of  a  low-flying  missile 
superimposed  upon  a  coverage  diagram  illustrating  his  own  radar’s  vulnerability  as  defined  by  the 
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missile’s  ESM  receiver,  only  a  single  execution  of  the  APM  CSCI  would  be  required,  thereby  saving 
valuable  computer  resources. 

7.2  ENVIRONMENTAL  RADIO  REFRACTIVITY  FIELD  DATA  ELEMENTS 

The  radio-refractivity  field  (i.e.  the  profiles  of  M-units  versus  height)  should  consist  of  vertical 
piece- wise  linear  profiles  specified  by  couplets  of  height  in  meters  with  respect  to  mean  sea  level 
and  modified  refractivity  (M-units)  at  multiple  arbitrary  ranges.  All  vertical  profiles  must  contain 
the  same  number  of  vertical  data  points,  and  be  specified  such  that  each  numbered  data  point  corre¬ 
sponds  to  like-numbered  points  (i.e.  features)  in  the  other  profiles.  The  first  numbered  data  point  of 
each  profile  must  correspond  to  a  height  of  zero  mean  sea  level  and  the  last  numbered  data  point 
must  correspond  to  a  height  such  that  the  modified  refractivity  for  all  greater  heights  is  well  repre¬ 
sented  by  extrapolation  using  the  two  highest  profile  points  specified. 

With  the  inclusion  of  terrain  and  allowing  the  terrain  profile  to  fall  below  mean  sea  level,  refrac- 
tivity  profiles  can  also  be  provided  in  which  the  first  level  is  less  than  0  (or  below  mean  sea  level). 
For  a  terrain  profile  that  falls  below  mean  sea  level  at  some  point,  the  assumption  is  that  the  mini¬ 
mum  height  may  be  less  than  the  first  height  in  any  refractivity  profile  specified.  Therefore,  an  ex¬ 
trapolation  flag,  must  be  specified  to  indicate  how  the  APM  CSCI  should  extrapolate  from  the 
first  refractivity  level  to  the  minimum  height  along  the  terrain  profile.  Setting  icma  to  0  will  cause  the 
APM  CSCI  to  extrapolate  to  the  minimum  height  using  a  standard  atmosphere  gradient;  setting  itxtm 
to  1  will  cause  the  APM  CSCI  to  extrapolate  to  the  minimum  height  using  the  gradient  determined 
from  the  first  two  levels  of  the  refractivity  profile. 

Within  each  profile,  each  numbered  data  point  must  correspond  to  a  height  greater  than  or  equal  to 
the  height  of  the  previous  data  point.  Note  that  this  requirement  allows  for  a  profile  that  contains 
redundant  data  points.  Note  also  that  all  significant  features  of  the  refractivity  profiles  must  be 
specified,  even  if  they  are  above  the  maximum  output  height  specified  for  a  particular  application  of 
APM. 

The  TESS-NC  CSCI  application  designer  and  the  TESS-NC  operator  share  responsibility  for  de¬ 
termining  appropriate  environmental  inputs.  For  example,  a  loss  diagram  may  be  used  to  consider  a 
surface-to-surface  radar  detection  problem.  Since  the  operator  is  interested  in  surface-to-surface,  he 
may  truncate  the  profile,  assuming  that  effects  from  elevated  ducting  conditions  are  negligible.  It 
may  be  however,  that  the  elevated  duct  does  indeed  produce  a  significant  effect.  The  operator 
should  ensure,  therefore,  that  the  maximum  height  of  the  profile  allows  for  the  inclusion  of  all  sig¬ 
nificant  refractive  features. 

This  specification  allows  a  complicated  refractivity  field  to  be  described  with  a  minimum  of  data 
points.  For  example,  a  field  in  which  a  single  trapping  layer  linearly  descends  with  increasing  range 
can  be  described  with  just  two  profiles  containing  only  four  data  points  each,  frame  (a)  of  figure  3. 

In  the  same  manner,  other  evolutions  of  refractive  layers  may  be  described.  Frames  (b)  and  (c)  of 
figure  3  show  two  possible  scenarios  for  the  development  of  a  trapping  layer.  The  scenario  of  choice 
is  the  one  that  is  consistent  with  the  true  thermodynamical  and  hydrological  layering  of  the  atmos¬ 
phere. 
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PROFILE  1 


PROFILE  2 


(a) 


PROFILE  2 


Figure  3.  Idealized  M-unit  profiles  (solid)  and  lines  of  interpolation  (dashed). 

Two  external  implementation  data  variables  applicable  to  both  the  TESS-NC  operator  and  to  the 
calling  application  designer  are  the  maximum  APM  CSCI  output  range,  and  h^,  the  maximum 
APM  CSCI  output  height.  These  two  parameters  are  required  by  the  APM  CSCI  to  determine  the 
horizontal  and  vertical  resolution,  respectively,  for  internal  range  and  height  calculations  based  on 
the  current  values  of  nroM  and  nww.  Any  value  of  rm  and  is  allowed  for  the  convenience  of  the 
TESS-NC  operator  and  the  calling  application  designer,  provided  >  5  km,  and  >  100  m. 

For  example,  the  TESS-NC  operator  may  desire  a  coverage  diagram  which  extends  to  a  range  of  500 
kilometers  (km).  In  addition  to  accommodating  the  desires  of  the  operator,  specification  of  such  a 
convenient  maximum  range  eases  the  burden  for  the  application  designer  in  determining  incremental 
tick  marks  for  the  horizontal  axis  of  the  display. 

Provided  the  value  of  the  parameter  lerrl2  is  set  to  ‘.false.’,  if  the  furthest  environment  profile 
range  is  less  than  the  APM  CSCI  will  automatically  create  an  environment  profile  at  equal  to 
the  last  profile  specified,  making  the  environment  homogeneous  from  the  range  of  the  last  profile 
specified  to  r^.  For  example,  a  profile  is  input  with  an  accompanying  range  of  450  km.  If  the 
TESS-NC  operator  chooses  an  rmax  of  500  km,  the  APM  CSCI  will  continue  loss  calculations  to  500 
km,  keeping  the  refractivity  environment  homogeneous  from  450  km  to  500  km. 

If  lerrl2  is  set  to  ‘.true.’  and  the  furthest  environment  profile  range  is  less  than  r^,  then  an  error 
will  be  returned  in  iemr  from  the  APMINIT  CSC.  This  is  to  allow  the  TESS-NC  CSCI  application 
designer  greater  flexibility  in  how  environment  data  is  handled. 

7.3  TERRAIN  PROFILE  DATA  ELEMENT 

The  terrain  profile  should  consist  of  linear  piece-wise  segments  specified  in  terms  of  range/height 
pairs.  All  range  values  must  be  increasing,  and  the  first  terrain  height  value  must  be  at  range  zero. 
General  ground  composition  types  can  be  specified  (table  4),  along  with  corresponding  ranges  over 
which  the  ground  type  is  to  be  applied.  If  ground  type  “User  Defined”  is  specified  (igmd.  =  7),  then 
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numeric  values  of  relative  permittivity  and  conductivity  must  be  given.  If  horizontal  antenna  polari¬ 
zation  is  specified,  the  APM  CSCI  will  assume  perfect  conductivity  for  the  entire  terrain  profile  and 
will  ignore  any  information  regarding  ground  composition.  If  vertical  antenna  polarization  is  speci¬ 
fied,  then  information  regarding  ground  composition  must  also  be  specified. 

The  maximum  height,  hnax,  must  always  be  greater  than  the  minimum  height,  hm.m.  Also,  a  value  of 
must  be  given  such  that  it  is  larger  than  the  maximum  elevation  height  along  a  specified  terrain 
profile. 

Provided  lerr6  is  set  to  ‘.false.’,  if  the  furthest  range  point  in  the  terrain  profile  is  less  than  r^;  the 
APM  CSCI  will  automatically  create  a  height/range  pair  as  part  of  the  terrain  profile  at  rmax  with  ele¬ 
vation  height  equal  to  the  last  height  specified  in  the  profile,  making  the  terrain  profile  flat  from  the 
range  of  the  last  profile  point  specified  to  For  example,  a  terrain  profile  is  input  where  the  last 
height/range  pair  is  50  m  in  height  with  an  accompanying  range  of  95  km.  If  the  TESS-NC  operator 
chooses  an  r ^  of  100  km,  the  APM  CSCI  will  continue  loss  calculations  to  100  km,  keeping  the 
terrain  profile  flat  from  95  km  to  100  km  with  an  elevation  height  of  50  m. 

If  lerr6  is  set  to  ‘.true.’  and  the  furthest  range  point  is  less  than  rmax,  then  an  error  will  be  returned 
in  ierwr  from  the  APMINIT  SU.  This  is  to  allow  the  TESS-NC  CSCI  application  designer  greater 
flexibility  in  how  terrain  data  are  handled. 

7.4  ACRONYM  AND  ABBREVIATIONS 

Table  102  is  a  glossary  of  acronyms  and  abbreviations  used  within  this  document. 


Table  102.  Acronyms  and  abbreviations. 


Term 

Definition 

AMIN 

Minimum  of  variables  within  parenthesis 

AMAX 

Maximum  of  variables  within  parenthesis 

AP 

Angle  trace  function 

APM 

Advanced  Propagation  Model 

Centibel 

One-hundredth  of  the  logarithm  of  a  quantity 

COMMON  BLOCK 

Allows  two  or  more  FORTRAN  Sus  to  share 
variables  without  having  to  pass  them  as 
arguments 

COS 

Cosine  function 

CMPLX 

Data  conversion  to  complex  number 

CSCI 

Computer  software  configuration  item 

dB 

Decibel 

decibel 

times  the  logarithm  of  a  quantity 

EM 

electromagnetic 

FE 

Flat  earth 
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Table  102.  Acronyms  and  abbreviations.  (Continued) 


Term 

Definition 

FFT 

Fast  Fourier  Transform 

FORTRAN 

Formula  Translation 

HP 

Height  trace  function 

IMAG 

Imaginary  part  of  complex  number 

INT 

Integer  value  of 

km 

Kilometers 

LOG 

Logarithm  to  base  10 

LN 

Natural  logarithm 

m 

Meters 

M 

Modified  refractivity  units 

MHz 

Megahertz 

M-unit 

Refractivity  measurement  unit 

|j.V/m 

Microvolts  per  meter 

N/A 

Not  applicable 

NINT 

Round  real  number 

PE 

Parabolic  Equation 

PINT 

Interpolation  function 

PLINT 

Interpolation  function 

P  space 

Phase  space 

RADA1 

Angle  trace  function 

Radian 

Unit  of  angular  measurement 

REAL 

Real  part  of  complex  number 

RO 

Ray  Optics 

RP 

Range  trace  function 

SIGN 

Sign  transfer  function 

SIN 

Sine  function 

SIN’1 

Inverse  sine  function 

S/m 

Conductivity  unit  Siemans  per  meter 

Sin(X)/X 

Sine(X)/X 

SRS 

Software  Requirements  Specification 
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Table  102.  Acronyms  and  abbreviations.  (Continued) 


Term 

Definition 

SU 

Software  unit 

TAN'1 

Inverse  tangent  function 

TESS-NC 

Tactical  Environmental  Support  System-Next 
Century 

7.5  SDD  VARIABLE  NAME,  FORTRAN  VARIABLE  NAME  CROSS  REFERENCE 

Table  103  is  a  cross  reference  of  variable  names  used  within  the  body  of  this  document  and  the 
FORTRAN  variable  names  as  used  within  the  APM  CSCI  source  code  of  section  8,  appendix  A. 
Included  are  the  SDD  variable  name,  its  description,  the  FORTRAN  source  code  name,  and  the 
designation  of  the  FORTRAN  COMMON  BLOCK  name,  if  applicable. 


Table  103.  Variable  name  cross  reference. 


SDD 

Variable 

Name 

Description 

FORTRAN 
Source  Code 
Name 

FORTRAN 
Common  Block 
Name 

a 

Complex  coefficient  of  partial  linear  solution  to 
homogeneous  equation 

ar 

N/A 

a 

Angle  defined  by  equ.  1 15  in  EREPS  3.0 

User’s  Manual  NraD  TD  2648,  pp.  105 

al 

N/A 

*0 

Angle  at  start  of  ray  trace  step 

a0 

N/A 

a, 

Angle  at  end  of  ray  trace  step 

al 

N/A 

az 

Tangent  angle  for  receiver  height  zoutj 

ang2 

N/A 

A* 

Local  ray  or  propagation  angle  at  height  zlim 
and  range  rm. 

aatz 

TRVAR 

Absolute  humidity  near  the  surface 

abshum 

REFRACTIVITY 

adl 

Array  of  tangent  ranges  from  source  height  - 
used  with  terrain  profile 

ad1() 

N/A 

adif 

Height  differences  between  antrcf  and  all  output 
receiver  heights 

adif() 

N/A 

a<k 

4/3  effective  earth’s  radius 

aek 

N/A 

aek2 

Twice  4/3  effective  earth’s  radius 

aek2 

MISCVAR 

af 

fac 

Antenna  pattern  parameter  (depends  on  1^ 
and  juJ 

afac 

PATTERN 

^ launch 

Launch  angle  used  which,  when  traced,  sepa¬ 
rates  PE  and  XO  regions  from  the  RO  region 

alaunch 

TRVAR 
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Table  103.  Variable  name  cross  reference.  (Continued) 


SDD 

Variable 

Name 

Description 

FORTRAN 
Source 
Code  Name 

FORTRAN 
Common  Block 
Name 

a 

Source  elevation  angle 

a 

N/A 

Direct-path  ray  angle 

alphad 

MISCVAR 

adif 

The  difference  between  current  and  previous 
outgoing  propagation  angles 

angdif 

N/A 

a* 

LOG  of  antenna  pattern  factor  for  ad  where  ad 
represents  lowest  direct  ray  angle  in  optical  re¬ 
gion 

aid 

N/A 

Elevation  angle  of  the  RO  limiting  ray 

alflim 

N/A 

Elevation  angle  relative  to  the  antenna  elevation 
angle 

udif 

N/A 

Reflected-path  ray  angle 

alphar 

N/A 

Maximum  tangent  ray  angle  from  the  source  to 
the  terrain  peak  along  profile  height 

angu 

N/A 

Surface  impedance  term 

alphav 

IMPEDANCE 

Elevation  angle  of  RO  limiting  ray  in  radians. 

Used  to  initialize  launch  angle  in  the  GETTHMAX 
SU 

amlim 

N/A 

antia 

Transmitting  antenna  height  above  local  ground 

antht 

SYSTEMVAR 

antk 

o 

Height-gain  value  at  souce 

antko 

N/A 

Miref 

Transmitting  antenna  height  relative  to  hmlMr 

antref 

MISCVAR 

O' temp 

Temporary  angle  variable 

atemp 

N/A 

araftt 

Array  of  angles  after  smoothing  operation 

araft() 

N/A 

arbef 

Array  of  angles  before  smoothing  operation 

arbef() 

N/A 

&  start 

Elevation  angle  at  start  of  ray  step 

aa 

N/A 

b 

Complex  coefficient  of  partial  linear  solution  to 
homogeneous  equation 

br 

N/A 

b 

Angle  defined  in  equ.  116  in  EREPS  3.0  User’s 
Manual  NRaD  TD  2648,  pp.  105 

be 

N/A 

p 

Terminal  elevation  angle 

ab 

N/A 

A, 

Direct  ray  terminal  elevation  angle 

betad 

N/A 

Pr 

Reflected  ray  terminal  elevation  angle 

betar 

N/A 
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Table  103.  Variable  name  cross  reference.  (Continued) 


SDD 

Variable 

Name 

Description 

FORTRAN 
Source 
Code  Name 

FORTRAN 
Common  Block 
Name 

c, 

Coefficient  used  in  vertical  polarization  calcula¬ 
tions 

cl 

IMPEDANCE 

c2 

Coefficient  used  in  vertical  polarization  calcula¬ 
tions 

c2 

IMPEDANCE 

Cu 

Constant  used  to  propagate  C,  by  one  range  step 

clx 

IMPEDANCE 

c* 

Constant  used  to  propagate  C2  by  one  range  step 

c2x 

IMPEDANCE 

con 

io\ 

con 

PE 

Constant  equals  A ,p/k0 

cnst 

PE 

ct, 

Quantity  defined  in  equ.  124  in  EREPS  3.0  User’s 
Manual,  NRaD  TD  2648,  pp.  106 

ctl 

N/A 

ct2 

Quantity  defined  in  equ.  125  in  EREPS  3.0  User’s 
Manual,  NRaD  TD  2648,  pp.  106 

Ct2 

N/A 

curang 

Array  of  current  local  angles  for  each  ray  being 
traced  in  XO  region 

curang() 

N/A 

curht 

Array  of  current  local  heights  for  each  ray  being 
traced  in  XO  region 

curht() 

N/A 

curng 

Array  of  current  local  ranges  for  each  ray  being 
traced  in  XO  region 

cumg() 

N/A 

AFdf0 

Difference  in  direct  ray  magnitude  along 

A xR0  below  desired  APM  output  point 

dfsdlo 

N/A 

A  Fdl 

Difference  in  direct  ray  magnitude  along 

A xR0  above  desired  APM  output  point 

dfsdhi 

N/A 

A  Fr£ 

Difference  in  reflected  ray  magnitude  along  AxR0 
below  desired  APM  output  point 

dfsrlo 

N/A 

AF^ 

Difference  in  reflected  ray  magnitude  along  AxR0 
above  desired  APM  output  point 

dfsrhi 

N/A 

AHo 

Frequency  gain  function  correction  term  defined 
in  equ.  127  in  EREPS  3.0  User’s  Manual,  NRaD 

TD  2648,  pp.  106 

delho 

N/A 

AQ.hi 

Difference  in  total  phase  lag  angle  along  AxRO 
above  desired  APM  output  point 

danghi 

N/A 

AQio 

Difference  in  total  phase  lag  angle  along  AxR0 
below  desired  APM  output  point 

danglo 

N/A 

A p 

Mesh  size  in  angle-  (or  p-)  space 

delp 

N/A 
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Table  103.  Variable  name  cross  reference.  (Continued) 


SDD 

Variable 

Name 

Description 

FORTRAN 
Source 
Code  Name 

FORTRAN 
Common  Block 
Name 

Output  range  step 

drout 

OUTRH 

Arn 

PE  range  step 

dr 

PE 

A rpE2 

Vz  PE  range  step 

dr2 

PE 

Ar,'»„ 

Range  step  for  ray  tracing 

drtemp 

N/A 

A© 

Angle  difference  between  mesh  points  in 
p-space 

dtheta 

N/A 

teRO 

RO  range  interval 

delxRO 

RO 

Az„„, 

Output  height  increment 

dzout 

OUTRH 

te’PE 

PE  mesh  height  increment  (bin  width  in  z-space) 

delz 

PE 

Az,* 

2  AzP£ 

dz2 

PE 

d, 

Range  from  source  to  tangent  point 

dl 

N/A 

d„ 

Tangent  range  from  the  source  for  smooth 
surface 

dls 

N/A 

d2 

Range  from  receiver  to  tangent  point 

d2 

N/A 

d2s 

Array  of  tangent  ranges  for  all  output  receiver 
heights  over  smooth  surface 

d2s() 

N/A 

da 

Vbwr / 2 

dalpha 

N/A 

dielec 

Two-dimensional  array  containing  the  relative 
permittivity  and  conductivity,  dielecv  and  dielec 
respectively 

dielecQ 

N/A 

dum 

Dummy  array  used  for  temporary  storage 

dum() 

N/A 

dxda 

Derivative  of  range  with  respect  to  elevation 
angle 

dxda 

N/A 

dxdad 

Derivative  of  range  with  respect  to  ad 

dxdad 

N/A 

dxdar 

Derivative  of  range  with  respect  to  ar 

dxdar 

N/A 

dzdad 

Derivative  of  height  with  respect  to  ad 

dzdad 

N/A 

dzdar 

Derivative  of  height  with  respect  to  ar 

dzdar 

N/A 

ek 

4/3  effective  earth’s  radius  factor 

ek 

N/A 

envpr 

Complex  [refractivity]  phase  term  array  interpo¬ 
lated  every  A zn:  in  height 

envpr() 

N/A 

£r 

Relative  permittivity 

epsilon 

N/A 
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Table  103.  Variable  name  cross  reference.  (Continued) 


SDD 

Variable 

Name 

Description 

FORTRAN 
Source  Code 
Name 

FORTRAN 
Common 
Block  Name 

Vs 

Quantity  defined  in  equ.  126  in  EREPS  3.0 

User’s  Manual,  NRaD  TD  2648,  pp.  106 

etas 

N/A 

F1 

Propagation  factor  squared 

fsq 

N/A 

m 

Antenna  pattern  factor  for  angle,  t?, 

factr 

N/A 

fiocj 

Antenna  pattern  factor  for  direct  ray 

facd 

N/A 

fi-aj 

Antenna  pattern  factor  for  reflected  ray 

facr 

N/A 

farray 

Field  array  to  be  propagated  one  range  step  in 
free  space 

farray() 

N/A 

Fd 

Magnitude  array,  direct  ray 

dmagsqQ 

N/A 

Fm 

Propagation  factor  in  dB 

ffacdb 

N/A 

F* 

Propagation  factor  in  dB 

ffac 

N/A 

ffacz 

Array  containing  propagation  factor,  range,  and 
propagation  angle  at  zlim 

ffacz() 

N/A 

ffrout 

Array  of  propagation  factors  at  each  output 
range  beyond  rw:  and  at  height,  z,im 

ffrout() 

N/A 

filt 

Cosine-tapered  (Tukey)  filter  array 

filtO 

N/A 

filtp 

Array  filter  for  spectral  estimation  calculations 

filtpO 

N/A 

fUHz 

Frequency 

freq 

SYSTEMVAR 

/ 

J  norm 

Normalization  factor 

fnorm 

PE 

f, 

Fractional  bin  used  for  interpolation 

fr 

N/A 

2 

fr 

Magnitude  array,  reflected  ray 

rmagsqG) 

RO 

f roc 

Fractional  distance  between  pi,  and  pl2 

frac 

N/A 

fi~acRO 

RO  range  interval  fraction  (0.0  to  0.25) 

fracRO 

N/A 

frsp 

Complex  free  space  propagator  term  array 

frsp() 

N/A 

fslr 

Free-space  loss  array  for  output  ranges 

fslr() 

N/A 

PL, 

Free-space  loss  at  range  rmt 

fslrout 

N/A 

f2 

J  sum 

Square  of  coherent  sum  of  directand  reflected 
rays 

ffac2 

N/A 
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Table  103.  Variable  name  cross  reference.  (Continued) 


SDD 

Variable 

Name 

Description 

FORTRAN 
Source 
Code  Name 

FORTRAN 
Common  Block 
Name 

f"r 

Logical  flag  indicating  if  terrain  profile  has  been 
specified: 

.true.  =  Terrain  profile  specified 
.false.  =  Terrain  profile  not  specified 

fter 

MISCVAR 

fV 

Fraction  range  for  profile  interpolation 

fv 

N/A 

y ; 

Surface  specific  attenuation 

gammaa 

REFRACTIVITY 

z 

Oxygen  absorption 

gammao 

N/A 

z 

Water  absorption 

gammaw 

N/A 

Gaseous  absorption  attenuation  rate 

gasatt 

ABSORB 

gr 

Intermediate  M-unit  gradient  array,  RO  region 

gr() 

N/A 

grad 

Two-dimensional  array  containing  gradients  of 
each  profile  used  in  XO  calculations 

grad(,) 

N/A 

8rd 

Refractivity  gradient 

grd 

N/A 

K 

Height  at  start  of  ray  trace  step 

hO 

N/A 

h, 

Height  at  end  of  ray  trace  step 

hi 

N/A 

H, 

Quantity  defined  in  equ.  120  in  EREPS  3.0 

User’s  Manual,  NRaD  TD  2648,  pp.  106 

horl 

N/A 

Quantity  defined  in  equ.  121  in  EREPS  3.0 

User’s  Manual,  NRaD  TD  2648,  pp.  106 

hor2 

N/A 

hfang 

Cut-back  angles  in  degrees 

hfang() 

N/A 

hfangr 

Cut-back  angles  in  radians 

hfang  r() 

N/A 

hffac 

Cut-back  antenna  pattern  factors 

hffac() 

N/A 

hlarge 

Maximum  height  limit  for  last  level  in 
height/refractivity  profiles 

hlarge 

N/A 

hlim 

Array  containing  height  at  each  output  range 
separating  the  RO  region  from  the  PE  (at  close 
ranges)  and  XO  (at  far  ranges)  regions 

hlim() 

N/A 

Maximum  output  height  with  respect  to  mean 
sea  level 

hmax 

INPUTVAR 

K,« 

Minimum  output  height  with  respect  to  mean 
sea  level 

hmin 

INPUTVAR 

fa 

t'minrer 

Minimum  height  of  terrain  profile 

hminter 

REFPROF 
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Table  103.  Variable  name  cross  reference.  (Continued) 


SDD 

Variable 

Name 

Description 

FORTRAN 
Source 
Code  Name 

FORTRAN 
Common  Block 
Name 

hm«f 

Height  relative  to  hminlrr 

Hmref 

MISCVAR 

hmsl 

Two-dimensional  array  containing  heights  with 
respect  to  mean  sea  level  of  each  profile.  Array 
format  must  be  hmsl^  =  height  of  t  level  of  f 
profile;  j  =  1  for  range-independent  cases 

hmsl(,) 

N/A 

K 

Effective  scattering  height — defined  in  equ.  109  in 
EREPS  3.0  User’s  Manual,  NRaD  TD  2648,  pp. 

105 

hO 

N/A 

Frequency  gain  function  defined  in  equ.  119  in 
EREPS  3.0  User’s  Manual,  NRaD  TD  2648, 

pp.  106 

Bigh 

N/A 

href 

Heights  of  refractivity  profile  with  respect  to  ynf 

href() 

N/A 

ht 

PE  mesh  height  array  of  size,  n# 

ht() 

N/A 

htdum 

Height  array  for  current  interpolated  profile 

htdum() 

N/A 

htemp 

Heights  at  which  ray  is  traced  to  every  range  in 
rtemp 

htemp() 

TRVAR 

h 

lermax 

Maximum  terrain  height  along  profile  path 

htermax 

N/A 

K* 

Minimum  height  at  which  all  trapping  refractivity 
features  are  below 

htest 

N/A 

htfe 

Array  containing  the  height  at  each  output  range 
separating  the  FE  region  from  the  RO  region  (full 
hybrid  mode),  or  the  FE  region  from  the  PE  re¬ 
gion  (partial  hybrid  mode) 

htfe() 

N/A 

^Ihick 

Thickness  of  highest  trapping  layer  from  all  re¬ 
fractivity  profiles 

hthick 

N/A 

Maximum  height  relative  to  h  , 

htlim 

MISCVAR 

htout 

Final  height  for  each  ray  traced  in  XO  region  at 
range,  rM 

htout() 

N/A 

htr 

Two-dimensional  array  containing  heights  of  each 
profile  used  in  XO  calculations 

htr() 

N/A 

Height  of  highest  trapping  layer  from  all  refractiv¬ 
ity  profiles 

htrap 

N/A 

K«r 

lim  ~  y Jref 

htydif 

RO 
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Table  1 03.  Variable  name  cross  reference.  (Continued) 


SDD 

Variable 

Name 

Description 

FORTRAN 
Source 
Code  Name 

FORTRAN 
Common  Block 
Name 

Index  indicating  when  the  local  ray  angle  be¬ 
comes  positive  in  array  raya 

iap 

TRVAR 

L 

Number  of  points  over  which  to  perform  average 
smoothing 

iav 

N/A 

l bmst 

Integer  flag  indicating  if  ynl  is  below  mean  sea 
level  (msl) 

'w  =  0;yre/not  below  msl 
'w=1  :yre,  below  ms! 

ibmsl 

N/A 

. error 

Error  flag 

ierror 

N/A 

l extra 

Extrapolation  flag  for  refractivity  profiles  entered 
below  mean  sea  level 

iara  =  0;  extrapolate  to  minimum  terrain  height 
standard  atmosphere  gradient 

=  1 ;  extrapolate  to  minimum  terrain  height 
using  first  gradient  in  profile 

iextra 

REFRACTIVITY 

*flag 

Integer  flag  indicating  height  at  which  to  refer¬ 
ence  the  refractivity  profile 

=  0;  adjust  profile  relative  to  hmimr 
i  =  1 ;  adjust  profile  relative  to  local  ground 
height  above  hmM„ 

iflag 

N/A 

*. 

Counter  indicating  current  ground  type  being 
modeled 

ig 

IMPEDANCE 

V 

Number  of  different  ground  types  specified 

igr 

TERRAIN 

Igrad 

Index  of  current  gradient  level  in  grad 

igrad 

N/A 

igrd 

Integer  indexes  indicating  at  what  refractive 
gradient  level  to  begin  ray  tracing  for  next  XO 
range  step  for  each  ray  in  XO  region 

igrd() 

N/A 

igmd 

Integer  array  containing  ground  type  composi¬ 
tion  for  given  terrain  profile — can  vary  with 
range.  Different  ground  types  are: 

0  =  Seawater 

1  =  Freshwater 

2  =  Wet  ground 

3  =  Medium  dry  ground 

4  =  Very  dry  ground 

5  =  Ice  at  -1  degree  C 

6  =  Ice  at  -10  degree  C 

7  =  User-defined  (in  which  case,  values  of 

relative  permittivity  and  conductivity  must 
be  given) 

igmd() 

N/A 
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Table  103.  Variable  name  cross  reference.  (Continued) 


SDD 

Variable 

Name 

Description 

FORTRAN 
Source 
Code  Name 

FORTRAN 
Common  Block 
Name 

^ hybrid 

Integer  indicating  which  submodels  will  be  used: 

0  =  Pure  PE  model 

1  =  Full  hybrid  model  (PE  +  FE  +  RO  +  XO) 

2  =  Partial  hybrid  model  (PE  +  XO) 

ihybrid 

MISCVAR 

First  output  height  point  index  in  zout  where 
propagation  loss  will  be  computed  at  previous 

PE  range 

ipl 

N/A 

ip2 

First  output  height  point  index  in  zout  where 
propagation  loss  will  be  computed  at  current  PE 
range 

ip2 

N/A 

lpat 

Antenna  pattern  type 
ipat  =  1  :  Omni-directional 

ipat  =  2 :  Gaussian 

ipat  ~  3  :  Sine(x)/x 

ipat =  *  '■  Cosecant-squared 

ipat  =  5  :  Generic  height-finder 

ipat =  6  :  User-defined  height-finder 

ipat 

SYSTEMVAR 

lpeat 

Bin  #  in  spectr  corresponding  to  the  peak 
magnitude 

ipeak 

N/A 

Polarization  flag: 

0  =  Horizontal  polarization 

1  =  Vertical  polarization 

ipol 

SYSTEMVAR 

f quit 

Integer  flag  indicating  to  quit  tracing  current  ray 
and  begin  again  with  a  new  launch  angle 

iquit 

N/A 

L: 

Index  of  output  range  step  in  which  to  begin 
storing  propagation  factor  and  outgoing  angle  for 
XO  region 

iratz 

TRVAR 

lROn 

Array  index  for  next  range  in  RO  region 

iROn 

RO 

lROp 

Array  index  for  previous  range  in  RO  region 

iROp 

RO 

K 

Counter  for  current  refractivity/gradient  profile 
being  used  from  grad. 

irp 

N/A 

V 

Starting  index  counter  for  refractivity  profiles 

irps 

N/A 

^rtemp 

Temporary  number  of  range  steps  (used  for  ray 
tracing) 

irtemp 

N/A 

K 

Counter  for  current  profile 

is 

REFPROF 

^aan 

Array  index  for  height  in  RO  region  correspond¬ 
ing  to  antrr! 

istart 

RO 
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Table  103.  Variable  name  cross  reference.  (Continued) 


SDD 

Variable 

Name 

Description 

FORTRAN 
Source 
Code  Name 

FORTRAN 
Common  Block 
Name 

Current  output  range  step  index 

istp 

N/A 

\ 

Number  of  height/range  points  in  profile 

itp 

TERRAIN 

V 

Number  of  height/range  points  pairs  in  profile 

rx,  ty 

itpa 

MISCVAR 

f ITOpO 

Troposcatter  calculation  flag: 
i  =  0;  no  troposcatter  calcs 
i  =  1 ;  troposcatter  calcs 

itropo 

INPUTVAR 

type 

Ray  type  (direct  or  reflected)  flag 

itype 

N/A 

ix 

Height  counter  index 

lx 

N/A 

L 

Number  of  range  steps  in  XO  calculation  region 

ixo 

MISCVAR 

l xostp 

Current  output  range  step  index  for  XO  calcula¬ 
tions 

ixostp 

N/A 

iz 

Number  of  propagation  factor,  range,  and  angle 
triplets  stored  in  ffaez 

iz 

XO 

K 

Ending  index  in  curang,  curng,  and  curht  to  trace 
to  r 

out 

ize 

N/A 

Number  of  output  height  points  corresponding  to 
local  ground  height  at  current  output  range,  rM 

izg 

MISCVAR 

lX„c 

Integer  increment  for  storing  points  at  top  of  PE 
region  (i.e.,  points  are  stored  at  every  iziac  range 
step) 

izinc 

XO 

Maximum  number  of  points  allocated  for  arrays 
associated  with  XO  calculations 

izmax 

XO 

Starting  index  in  curang,  cumg,  and  curht  to  trace 
to  rM 

izs 

N/A 

j. 

Ending  receiver  height  index  at  which  to  com¬ 
pute  troposcatter  loss 

je 

N/A 

J end 

Index  at  which  valid  loss  values  in  mloss  end 

jend 

N/A 

h 

Ending  index  within  mloss  of  FE  loss  values 

jfe 

N/A 

Jfs 

Starting  index  within  mloss  of  FE  loss  values 

jfs 

N/A 

J  max 

Array  index  for  maximum  output  height  in  RO 
region 

jmax 

N/A 

J  min 

Array  index  for  minimum  output  height  in  RO 
region 

jmin 

N/A 
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Table  103.  Variable  name  cross  reference.  (Continued) 


SDD 

Variable 

Name 

Description 

FORTRAN 
Source 
Code  Name 

FORTRAN 
Common  Block 
Name 

ire 

Ending  index  within  mloss  of  RO  loss  values 

jre 

N/A 

Jrs 

Starting  index  within  mloss  of  RO  loss  values 

jrs 

N/A 

J. 

Starting  receiver  height  index  at  which  to  com¬ 
pute  troposcatter  loss 

js 

N/A 

J  a  an 

Index  at  which  valid  loss  values  in  mloss  start 

jstart 

N/A 

hi 

Index  counter  for  adl  and  t?1 1  arrays 

jtl 

TROPOV 

Jl2 

Index  counter  for  tx  and  ty  arrays  indicating 
location  of  receiver  range 

jt2 

TROPOV 

L 

1 

Index  at  which  valid  loss  values  in  mloss  end 

jxe 

N/A 

L 

Index  at  which  valid  loss  values  in  mloss  start 

jxs 

N/A 

Jxstart 

Starting  index  within  mloss  of  XO  loss  values 

jxstart 

N/A 

Km 

PE  bin  #  corresponding  to  z„m,  i.e.,  z„m  =jz„m  A z,£ 

jzlim 

XO 

k 

Integer  bin  #  in  field  [/corresponding  to  height, 

zr 

nb 

N/A 

k 

Grid  point  counter  used  in  RO  calculations 

k 

N/A 

^ abs 

Gaseous  absorption  calculation  flag: 
k^  =  0;  no  absorption  loss 

=  1 :  compute  absorption  loss  based  on  air 
temperature  tair  and  absolute  humidity  abshum 
k^  =  2;  compute  absorption  loss  based  on 
specified  absorption  attenuation  rate  ya 

kabs 

ABSORB 

Kin 

Number  of  bins  complex  PE  field  is  to  be 
shifted 

kbin 

N/A 

K 

k  index  above  desired  point 

khi 

N/A 

K 

k  index  below  desired  point 

klo 

N/A 

kmax 

Array  index  for  maximum  angle  in  RO  region  at 
range,  xKm 

kmax 

RO 

kminn 

Array  index  for  minimum  angle  in  RO  region  at 

range. 

kminn 

RO 

kminp 

Array  index  for  minimum  angle  in  RO  region  at 
range,  ^ 

kminp 

RO 

ko 

Free-space  wavenumber 

fko 

MISCVAR 

K 

Counter  index  for  terrain  profile  arrays  tx  and  ty 

kt 

N/A 
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Table  103.  Variable  name  cross  reference.  (Continued) 


SDD 

Variable 

Name 

Description 

FORTRAN 
Source 
Code  Name 

FORTRAN 
Common  Block 
Name 

^ lemp 

Temporary  kh  value 

klotmp 

N/A 

ktr{ 

Number  of  tangent  ranges  from  source  height 

ktrl 

TROPOV 

^ ahscb 

Gaseous  absorption  loss 

labscb 

N/A 

A 

Wavelength 

wl 

MISCVAR 

lerr6 

User-provided  error  flag  that  will  trap  on  certain 
errors  if  set  to  ‘.true.’ 

Ierr6 

ERRORFLAG 

lerrl2 

User-provided  error  flag  that  will  trap  on  certain 
errors  if  set  to  ‘.true.’ 

Ierr12 

ERRORFLAG 

levels 

Number  of  levels  in  gr,  q  and  zrt  arrays 

levels 

RO 

u 

Temporary  refractivity  level  counter 

newl 

N/A 

K 

Power  of  2  transform  size  (i.e.,  2'V)' 

In 

PE 

K* 

Minimum  power  of  2  transform  size 

Inmin 

PE 

lnP 

Power  of  2  transform  size  used  in  spectral  es¬ 
timation  calculations  (i.e.,  np  =  2'v) 

Inp 

SPEC 

Ivl 

Number  of  height  levels  in  each  profile  used  in 

XO  calculations 

lvl() 

N/A 

Ivlep 

Number  of  height/refractivity  levels  in  profile 
refdum  and  htdum 

Ivlep 

REFPROF 

Ivlp 

Number  of  height/refractivity  levels  in  profiles 

Ivlp 

REFRACTIVITY 

mloss 

Propagation  loss  array 

mloss 

N/A 

ft 

Antenna  elevation  angle  in  degrees 

elev 

SYSTEMVAR 

ft. 

Antenna  pattern  elevation  angle  in  radians 

elv 

PATTERN 

Vbw 

Antenna  vertical  beamwidth  in  degrees 

bwidth 

SYSTEMVAR 

Vbwr 

Antenna  vertical  beamwidth  in  radians 

bw 

PATTERN 

f^max 

Limiting  angle  for  Sin(X)/X  and  generic  height 
finder  antenna  pattern  factors 

umax 

PATTERN 

n3/4 

%  nfft 

n34 

PE 

ft 

1/4  njft 

n4 

PE 

nc 

Array  of  complex  dielectric  constants 

cn2() 

N/A 

nffi 

Transform  size 

n 

PE 
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Table  103.  Variable  name  cross  reference.  (Continued) 


SDD 

Variable 

Name 

Description 

FORTRAN 
Source 
Code  Name 

FORTRAN 
Common  Block 
Name 

V- 

Number  of  user-defined  cut-back  angles  and 
cut-back  pattern  factors 

nfacs 

SYSTEMVAR 

nlvl 

Number  of  levels  in  new  profile 

nlvl 

REFPROF 

nm, 

nml 

PE 

nPS4 

%np 

np34 

SPEC 

np< 

%np 

np4 

SPEC 

n P 

Number  of  bins  in  upper  PE  region  to  consider 
for  spectral  estimation 

npnts 

SPEC 

Number  of  refractivity  profiles 

nprof 

REFRACTIVITY 

n„n, 

Integer  number  of  output  range  points  desired 

nrout 

INPUTVAR 

Transform  size  for  spectral  estimation  calcula¬ 
tions 

ns 

SPEC 

n!0 

Number  of  rays  traced  (i.e.,  height  points,  in  XO 
region) 

nxo 

N/A 

Integer  number  of  output  height  points  desired 

nzout 

INPUTVAR 

12 

Total  phase  angle 

phdif 

N/A 

12 

Total  phase  angle  array 

omega(,) 

RO 

P, 

Refractivity  variable 

Pi 

N/A 

P2 

Refractivity  variable 

P2 

N/A 

Petev 

Sine  of  antenna  elevation  angle 

pelev 

PATTERN 

Pfacm« 

Minimum  propagation  factor 

pfacmin 

N/A 

pL 

Propagation  factor  in  dB  at  current  PE  range,  r, 
at  height,  zlm 

pfdb 

N/A 

Pfdblst 

Propagation  factor  in  dB  at  previous  PE  range, 
rto,  at  height,  zlim 

pfdblst 

N/A 

Pfr 

aiz 

Propagation  factor  in  dB  at  range,  rm,  and 
height,  z„m 

pfratz 

N/A 

9 

Phase  lag  angle  of  reflected  ray 

rphase 

N/A 

Pl, 

Path  loss  variable 

pH 

N/A 

Ph 

Path  loss  variable 

Pl2 

N/A 

pL. 

Constant  used  in  determining  propagation  loss 
=  20  LOG  (2  k)) 

plcnst 

MISCVAR 
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Table  103.  Variable  name  cross  reference.  (Continued) 


SDD 

Variable 

Name 

Description 

FORTRAN 
Source 
Code  Name 

FORTRAN 
Common  Block 
Name 

Ph 

Path  length  from  range  * 

pld 

N/A 

pK 

Path  length  difference  from  x  for  direct  ray 

pld 

N/A 

pK 

Path  length  difference  from  x  for  reflected  ray 

plr 

N/A 

P  mag 

Interpolated  magnitude  of  complex  PE  field 

pmag 

N/A 

prfac 

Propagation  factor  for  each  ray  traced  in  XO 
region  range  roa 

prfac() 

N/A 

profint 

Profile  interpolated  to  every  A zPE  in  height 

profint() 

N/A 

V 

Grazing  angle 

angle 

N/A 

V 

Grazing  angle 

psi 

N/A 

Vm. 

Grazing  angle  of  limiting  ray 

psilim 

RO 

Q 

Intermediate  M-unit  difference  array,  RO  region 

q() 

N/A 

q, 

Quantity  defined  in  equ.  128  in  EREPS  3.0 

User’s  Manual,  NRaD  TD  2648,  pp.  107 

qt 

N/A 

r 

Current  PE  range 

r 

N/A 

R 

Coefficient  used  in  C,  and  C2  calculations. 

rk 

IMPEDANCE 

ro 

Range  at  start  of  ray  trace  step 

rO 

N/A 

r, 

Path  length  for  direct-ray  path 

rl 

N/A 

r l 

Quantity  defined  in  equ.  122  in  EREPS  3.0 

User’s  Manual,  NRaD  TD  2648,  pp.  106 

rl 

N/A 

r i 

Range  at  end  of  ray  trace  step 

rl 

N/A 

r2 

Path  length  for  reflected-ray  path 

r2 

N/A 

r2 

Quantity  defined  in  equ.  123  in  EREPS  3.0 

User’s  Manual,  NraD  TD  2648,  pp.  106 

r2 

N/A 

rad 

Radical  for  square  root  test  in  ray  trace  step 

rad 

N/A 

r<* 

Radians  to  degrees  conversion  factor 

radc 

N/A 

r 

ange 

Range  for  profile  interpolation 

range 

N/A 

ratio 

Fractional  range  term  used  for  interpolation 

ratiox 

N/A 

ratiok 

Fraction  of  one  k  index  (0.  To  1 .) 

ratiok 

N/A 

ran 

Range  at  which  z,im  is  reached  (used  for  hybrid 
model) 

ratz 

TRVAR 
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Table  103.  Variable  name  cross  reference.  (Continued) 


SDD 

Variable 

Name 

Description 

FORTRAN 
Source 
Code  Name 

FORTRAN 
Common  Block 
Name 

raya 

Array  containing  all  local  angles  of  traced  ray 
at  each  intmp  range 

raya() 

! 

N/A 

rdif, 

Range  difference  between  adjacent  terrain 
points 

rdifl 

N/A 

rdif2 

Range  difference  between  adjacent  terrain 
points 

rdif2 

N/A 

r 

difsum 

Sum  of  adjacent  terrain  point  differences 

rdifsum 

N/A 

rdt 

Array  of  minimum  ranges  at  which  diffraction 
field  solutions  are  applicable  (for  smooth  sur¬ 
face)  for  all  output  receiver  heights 

rdt() 

N/A 

refdurn 

M-unit  array  for  current  interpolated  profile 

refdum() 

N/A 

refmsl 

Two-dimensional  array  containing  refractivity 
with  respect  to  mean  sea  level  of  each  profile. 
Array  format  must  be  refmsl. =  M-unit  at  t  level 
of  f  profile;  j  =  1  for  range-independent  cases 

refmsl(,) 

N/A 

refref 

Refractivity  profile  with  respect  to  ynf 

refref() 

N/A 

rf 

Constant  used  for  troposcatter  calculations 

rf 

TROPOV 

rfacl 

Propagation  factor  at  valid  output  height  points 
from  PE  field  at  range,  rto 

rfacl  () 

N/A 

rfac2 

Propagation  factor  at  valid  output  height  points 
from  PE  field  at  range,  r 

rfac2() 

N/A 

rfix 

Fixed  range  increment  of  terrain  profile 

rfix 

N/A 

rflat 

Maximum  range  at  which  the  terrain  profile 
remains  flat  from  the  source 

rflat 

N/A 

^ frac 

Ratio  between  adjacent  terrain  point  differences 

rfrac 

N/A 

rgmd 

Array  containing  ranges  at  which  varying 
ground  types  apply 

rgrnd() 

N/A 

ritOTl 

Minimum  range  at  which  diffraction  field  solu¬ 
tions  are  applicable — determined  for  0  receiver 
height 

rdhorl 

N/A 

* Iasi 

Previous  PE  range 

rlast 

N/A 

TU>S 

10  LOG(  PE  range,  r ) 

rlog 

Ml  SC  VAR 

rlogo 

Array  containing  20  times  the  logarithm  of  all 
output  ranges 

rlogo() 

N/A 

riog! a 

10  LOG(  previous  PE  range,  rto) 

rloglst 

MISCVAR 
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Table  103.  Variable  name  cross  reference.  (Continued) 


SDD 

Variable 

Name 

Description 

FORTRAN 
Source 
Code  Name 

FORTRAN 
Common  Block 
Name 

rloss 

Propagation  loss 

rloss() 

N/A 

rm 

Intermediate  M-unit  array,  RO  region 

rm() 

N/A 

rmag 

Magnitude  of  reflection  coefficient 

rmag 

N/A 

^ max 

Maximum  specified  range 

rmax 

INPUTVAR 

7 mid 

Range  at  which  interpolation  for  range- 
dependent  profiles  is  performed 

rmid 

N/A 

r 

mmax 

Maximum  M-unit  value  of  refractivity  profile  at 
range  0 

rmmax 

N/A 

r 

mmm 

Minimum  M-unit  value  of  refractivity  profile  at 
range  0 

rmmin 

N/A 

K 

Complex  refractive  index 

mg 

N/A 

mgout 

Array  containing  all  desired  output  ranges 

rngout() 

N/A 

rngprof 

Ranges  of  each  profile,  rngprof,  =  range  of  t 
profile 

rngprof() 

N/A 

r. 

Current  ending  range  for  ray  trace  step 

ro 

N/A 

root 

Array  of  RT to  the  t  power  (e.g.,  root,  =  R‘t) 

root() 

N/A 

rootm 

Array  of  -R.r to  the  /h  power  (e.g.,  rootm,  =  (-RT)) 

rootm() 

N/A 

Current  output  range 

rout 

N/A 

V 

Range  at  which  PE  loss  values  will  start  being 
calculated 

rpest 

MISCVAR 

rm 

Square  of  current  output  range 

rsq 

N/A 

rsqrd 

Array  containing  the  square  of  all  desired  out¬ 
put  ranges 

rsqrd() 

N/A 

Complex  root  of  quadratic  equation  for  mixed 
transform  method  based  on  Kuttler’s  formula¬ 
tion 

rt 

IMPEDANCE 

r,  *  antn! 

rlt 

TROPOV 

rtemp 

Range  steps  for  tracing  to  determine  maximum 
PE  angle 

rtemp() 

TRVAR 

r,s, 

Range  at  which  to  begin  RO  calculations  (equal 
to  2.5  km) 

rtst 

N/A 

Rv.h 

Complex  reflection  coefficient  for  vertical  (VO 
and  horizontal  ( H)  polarization 

refcoef 

N/A 
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Table  103.  Variable  name  cross  reference.  (Continued) 


SDD 

Variable 

Name 

Description 

FORTRAN 
Source 
Code  Name 

FORTRAN 
Common  Block 
Name 

Range  of  the  previous  refractivity  profile 

rvl 

N/A 

Range  of  the  next  refractivity  profile 

rv2 

REFPROF 

a 

Conductivity 

sigma 

N/A 

s 

Quantity  defined  equ.  110  in  EREPS  3.0  User’s 
Manual  NRaD  TD  2648,  pp.  105 

s 

N/A 

Sine  of  antenna  vertical  beam  width 

sbw 

PATTERN 

s  . 

gam 

Normalization  factor  used  in  starter  field  calcu¬ 
lation 

sgain 

N/A 

sip 

Slope  of  each  segment  of  terrain 

slp() 

N/A 

srij 

Term  used  in  troposcatter  loss  calculation 

snl 

TROPOV 

sn,'i 

Surface  refractivity 

snref 

N/A 

spectr 

Spectral  amplitude  of  field 

spectr() 

N/A 

surtij 

Summation  term  in  determining  a 

suml 

N/A 

sum2 

Summation  term  in  determining  b 

sum2 

N/A 

ta* 

Twice  the  effective  earth’s  radius 

twoka 

MISCVAR 

tiO 

Array  of  angles  used  to  determine  common 
volume  scattering  angle 

theta0() 

N/A 

Tangent  angle  from  source  height 

thetal 

N/A 

Tangent  angle  from  receiver  height 

theta2 

N/A 

Tangent  angle  from  source  (for  smooth  sur¬ 
face) 

thetal  s 

TROPOV 

d2s 

Array  of  tangent  angles  from  all  output  receiver 
heights — used  with  smooth  surface 

theta2s() 

N/A 

dlt 

Array  of  tangent  angles  from  source  height  - 
used  with  terrain  profile 

thl  0 

N/A 

Maximum  propagation  angle  in  PE  calculations 

thetamax 

N/A 

75%  of  maximum  propagation  angle  in  PE 
calculations 

theta75 

PE 

<L 

Outgoing  propagation  angle  determined  at  top 
of  PE  region 

thout 

N/A 

t«r 

Air  temperature  near  the  surface 

tair 

REFRACTIVITY 

terx 

Range  points  of  terrain  profile 

terx() 

N/A 
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Table  103.  Variable  name  cross  reference.  (Continued) 


SDD 

Variable 

Name 

Description 

FORTRAN 
Source 
Code  Name 

FORTRAN 
Common  Block 
Name 

tery 

Height  points  of  terrain  profile 

tery() 

N/A 

Troposcatter  loss  in  dB 

tloss 

N/A 

tlst 

T roposcatter  loss  term 

tlst 

N/A 

tlsts 

Troposcatter  loss  term  for  smooth  surface  case 

tlsts 

TROPOV 

tol 

Height  tolerance 

tol 

N/A 

t. 

Current  largest  tangent  angle  from  source 

tst 

N/A 

tx 

Range  points  of  terrain  profile 

tx() 

N/A 

ty 

Adjusted  height  points  of  terrain  profile 

ty() 

N/A 

u 

Complex  field  at  current  PE  range,  r 

uO 

N/A 

Ulast 

Complex  field  at  previous  PE  range,  rto 

ulst() 

N/A 

w 

Difference  equation  of  complex  PE  field 

w() 

N/A 

X 

Current  output  range 

X 

N/A 

X 

Field  array  to  be  transformed — dimensioned 

2n*'  in  calling  SU 

X() 

N/A 

xdum 

Real  part  of  complex  field  array 

xdum() 

N/A 

x°con 

Constant  used  in  determining  t?„, 

xocon 

SPEC 

xp 

Real  part  of  spectral  portion  of  PE  field 

xp() 

N/A 

xr 

Terminal  range — called  XftQn  in  ROCALC  SU 

rout 

N/A 

x 

reflect 

Range  at  which  ray  is  reflected 

xreflect 

RO 

xROn 

Next  range  in  RO  region 

xROn 

RO 

xROp 

Previous  range  in  RO  region 

xROp 

RO 

x 

temp 

Temporary  range  in  ray  trace  step 

xtemp 

N/A 

X*m 

Running  sum  of  range  during  ray  trace 

xsum 

N/A 

XX 

Fractional  range  for  interpolation 

XX 

N/A 

Height  of  terrain  at  the  current  PE  range  rela¬ 
tive  to  hmrtf 

ych 

N/A 

y  cur 

Height  of  ground  at  current  range,  r 

ycur 

MISCVAR 

y curm 

Height  of  ground  midway  between  last  and 
current  PE  range 

ycurm 

MISCVAR 
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Table  103.  Variable  name  cross  reference.  (Continued) 


SDD 

Variable 

Name 

Description 

FORTRAN 
Source 
Code  Name 

FORTRAN 
Common  Block 
Name 

>w 

y cur  y  last 

ydiff 

N/A 

ydum 

Imaginary  part  of  complex  field  array 

ydum() 

N/A 

y m 

Ground  elevation  height  at  source 

yfref 

MISCVAR 

y, u* 

Height  of  ground  at  previous  range,  rlasl 

ylast 

MISCVAR 

y,„ 

Height  of  terrain  at  the  previous  PE  range  rela¬ 
tive  to  hmnf 

ylh 

N/A 

ym 

Particular  solution  of  difference  equation 

ym() 

N/A 

y* 

Height  of  terrain  at  current  range  for  traced  ray 

yn 

N/A 

ym 

Particular  solution  of  difference  equation 

ym() 

N/A 

yn 

Height  of  terrain  at  current  range  for  traced  ray 

yn 

N/A 

y« 

Height  of  terrain  at  source 

ynt 

N/A 

yp 

Imaginary  part  of  spectral  portion  field 

yp() 

N/A 

y r'f 

Ground  elevation  height  at  current  range 

yref 

N/A 

Terminal  height  of  direct  ray 

zd 

N/A 

Zj/u 

Interpolated  terrain  elevation  at  current  output 
range 

zint 

N/A 

Zk 

Height  of  k*  RO  index 

zk 

N/A 

Z-Um 

Height  limit  for  PE  calculation  region 

zlim 

PE 

Z limi 

htKm- 10-3 

zlimt 

N/A 

Zm 

Output  receiver  height  relative  to  “real”  antenna 
height  and  adjusted  for  earth  curvature 

zm 

N/A 

7 

** max 

Total  height  of  the  FFT/PE  calculation  domain 

zmax 

PE 

zout 

Array  containing  all  desired  output  heights  ref¬ 
erenced  to  h:j 

zout() 

N/A 

zoutma 

Array  output  heights  relative  to  “real”  antrr/ 

zoutma() 

N/A 

zoutpa 

Array  output  heights  relative  to  “image"  antrc) 

zoutpa() 

N/A 

zp 

Output  receiver  height  relative  to  “image”  an¬ 
tenna  height  and  adjusted  for  earth  curvature 

ZP 

N/A 

Receiver  height 

height 

N/A 

Zr 

Terminal  height  of  reflected  ray 

zr 

N/A 

zRO 

Array  of  output  heights  in  RO  region 

zro() 

N/A 
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SDD 

Variable 

Name 

Description 

FORTRAN 
Source 
Code  Name 

FORTRAN 
Common  Block 
Name 

zrt 

Intermediate  height  array,  RO  region 

zrt() 

N/A 

Z test 

Height  in  PE  region  that  must  be  reached  for 

ztest 

N/A 

hybrid  model 

Ztol 

Height  tolerance  for  Newton's  method 

ztol 

RO 
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APPENDIX  A 

FORTRAN  SOURCE  CODE  FOR  APM  CSCI 


A.1  SUBROUTINE  APMINIT 


Version  1.0 

Author:  Amalia  E.  Barrios 

SPAWARSYSCEN  SAN  DIEGO  D883 
49170  Propagation  Path 
San  Diego,  CA  92152-7385 
e-mail:  barrios@spawar.navy.mil 
phone:  (619)  553-1429 
fax:  (619)  553-1417 


Summary:  These  routines  model  tropospheric  radiowave  propagation  over 

variable  terrain  and  calculates  propagation  loss  vs.  height  and 
range.  Propagation  loss  is  displayed  in  dB  contours  on  a  height  vs. 
range  plot.  APM  is  based  on  the  Radio  Physical  Optics  (RPO)  model 
developed  by  Herb  Hitney  (SPAWARSYSCEN  SAN  DIEGO)  and  the  Terrain 
Parabolic  Equation  Model  (TPEM)  developed  by  Amalia  Barrios 
(SPAWARSYSCEN  SAN  DIEGO) .  The  parabolic  equation  sub-model  is  based 
on  the  split-step  Fourier  PE  method  and  was  originally  developed 
from  an  early  PE  model  called  PEPC,  written  by  Fred  Tappert. 


Propagation  loss  over  variable  terrain  is  modeled  by  shifting 
the  field  an  appropriate  number  of  bin  widths  correspond¬ 
ing  to  the  height  of  the  ground.  The  field  is  determined  using  the 
smooth  earth  PE  method.  A  hybrid  capability  is  also  included  for 
limited  cases  (low  antenna  heights  and/or  initial  flat  terrain) . 

The  hybrid  model  consists  of  a  flat  earth  (FE)  region  at  very  high 
angles,  a  ray-optics  (R0)  model  at  intermediate  angles,  and 
the  split-step  PE  model  below  the  lowest  R0  angle.  An  extended 
optics  model  (XO)  is  used  at  heights  above  the  PE  region 
and  at  ranges  beyond  the  RO  region. 


!  ******* 


Variables  in  small  letters  in  parameter  lists  are  variables  that  are  input 
or  passed  to  called  subroutines.  Variables  in  CAPS  in  parameter  lists  are 
returned  from  the  called  subroutines. 


SUBROUTINE  APMINIT 


!  Module  Name :  APMINIT 

!  Module  Security  Classification:  UNCLASSIFIED 

!  Purpose:  Initializes  all  variables  used  in  APM  subroutines  for  FE,  RO, 
j  and  PE  calculations.  After  initial  units  conversions  have  been 

i  done,  all  calculations  are  in  metric  units.  Height  and  range 

i  values  are  in  meters  and  angles  are  in  radians. 


!  Version  Number:  1.0 


INPUTS: 

Argument  List:  NONE 

Common:  ABSHUM,  ANTHT ,  BWIDTH,  ELEV,  FREQ,  GAMMAA,  HFANG ( ) , 

HFFACO,  HMAX,  HMIN,  IGR,  IPAT,  I  POL,  ITP, 

ITROPO,  LERR6,  LERR12 ,  LVLP,  NPROF ,  NROUT ,  NZOUT, 

RMAX  TAIR 

Public:  DIELEC (,),  HMSL ( , ) ,  IGRND ( ) ,  REFMSL {,) ,  RGRND ( ) ,  RNGPROF ( ) , 
TERX ( ) ,  TERY ( ) 

Parameters:  PI 
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I  Data:  AEK,  EK,  RADC,  RTST 
!  OUTPUTS: 

!  Argument  List:  IXOSTP,  I ERROR 

!  Common:  Most  variables  in  common  blocks  ABSORB,  IMPEDANCE,  MISCVAR, 

!  OUTRH ,  PATTERN,  PE,  REFPROF,  RO,  SPEC,  TROPOV,  TRVAR,  XO 

!  Public:  All  public  arrays. 

!  Modules  Used:  APM__MOD 

!  Calling  routines:  MAIN  DRIVER  PROGRAM 

!  Routines  called: 

!  APM  Specific:  ALLARRAY_APM,  ALLARRAY_PE,  ALLARRAY_XO,  DIEINIT,  FFT,  FILLHT, 
!  GASABS,  GET ALN ,  GETMODE,  GETTHMAX,  INTPROF,  PHASE 1, 

!  PHASE2,  REFINIT,  TERINIT,  TROPOINIT,  XYINIT 

!  Intrinsic:  ABS,  ALOGIO,  AMAX1,  AMIN1,  ASIN,  ATAN,  COS,  FLOAT,  INT, 

!  NINT,  SIGN,  SIN,  SQRT 

I  GLOSSARY:  See  universal  glossary  for  common  variables,  data  variables 
!  public  arrays,  and  parameters. 

!  Input  Variables:  NONE 

!  Output  Variables: 

!  IXOSTP  =  Index  of  output  range  step  at  which  XO  model  is  to  be  applied. 

!  I ERROR  »  Integer  value  that  is  returned  if  any  errors  exist  in  input 

!  data: 

!  -6  :  Last  range  in  terrain  profile  is  less  than  RMAX. 

!  (Will  only  return  this  error  if  error  flag  LERR6 

!  is  set  to  .TRUE.). 

!  -7  :  Specified  cut-back  angles  are  not  increasing.  This  is 

!  only  tested  for  user-defined  height-finder  antenna 

!  pattern. 

!  -8  :  HMAX  is  less  than  maximum  height  of  terrain  profile. 

!  -9  :  Antenna  height  w.r.t.  msl  is  greater  than  maximum 

!  height  HMAX. 

!  -10  :  Beamwidth  is  less  than  or  equal  to  zero  for  directional 

!  antenna  pattern. 

!  -12  :  Range  of  last  refractivity  profile  entered  (for  range 

!  dependent  case)  is  less  than  RMAX.  (This  is  returned 

!  from  subroutine  REFINIT) .  Will  only  return  this  error 

i  if  error  flag  LERR12  is  set  to  .TRUE.). 

!  -13  :  Height  of  first  level  in  any  user-specified  refrac- 

!  tivity  profile  is  greater  than  0.  First  height  must 

!  be  at  m.s.l.  (0.)  or  <0.  if  below  m.s.l. 

!  -14  :  Last  gradient  in  any  refractivity  profile  entered  is 

!  negative.  (This  is  returned  from  REFINIT) . 

!  -17  :  Range  points  of  terrain  profile  are  not  increasing. 

!  -18  :  First  range  point  is  not  0. 

!  -42  :  Minimum  height  input  by  user  (HMIN)  is  greater  then 

!  maximum  height  (HMAX) . 

!  Local  Variables: 

!  ALFLIM  =  Elevation  angle  of  RO  limiting  ray  in  radians.  Used  to 

!  initialize  launch  angle  in  GETTHMAX  routine. 

!  ANGU  =  Maximum  tangent  ray  angle  from  source  to  terrain  peak 

!  along  profile  path. 

!  ATEST  =  Tangent  angle  used  for  automatic  calculation  of  maximum 

!  propagation  angle.  Only  used  for  modes  I HYBRID  =0,  2. 

!  HMX  -  Maximum  height  to  use  when  computing  a  maximum  propagation 

!  angle  for  PE  calculations.  Only  used  for  modes  IHYBRID=0,2. 

!  HTERMAX  =  Maxim™  terrain  height  along  profile  path  in  meters. 

!  HTEST  =  Minim™  height  in  meters  at  which  all  trapping 

!  refractivity  features  are  below  (includes  some  slop) . 

!  HTHICK  =  Thickness  in  meters  of  highest  trapping  layer  from  all 

!  refractivity  profiles. 
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I  HTRAP  =  Height  of  highest  trapping  layer  in  meters  from  all 

!  refractivity  profiles. 

!  RFIX  =  If  terrain  profile  points  are  equally  spaced,  this  is 

t  automatically  determined  and  range  spacing  is  set  to  RFIX, 

!  otherwise,  RFIX  =  0. 

i  RFLAT  =  Maximum  range  in  meters  at  which  the  terrain  profile 

1  remains  flat  from  the  source. 

!  RKM  ~  Maximum  range  in  km. 

i  RMMAX  =  Maximum  M-unit  value  (xlOe-6)  of  refractivity  profile  at 

!  range  0 . 

i  RMMIN  =  Minimum  M-unit  value  (xlOe-6)  of  refractivity  profile  at 

!  range  0 . 

j  THETAMAX  =  Maximum  propagation  angle  used  in  the  PE  model. 

!  ZTEST  =  This  is  the  minimum  height  at  which  the  PE  model  must 

I  reach  in  order  to  contain  all  necessary  refractivity  and/or 

t  terrain  features. 

subroutine  apminit (  IXOSTP,  IERROR  ) 

use  apm_mod 

complex  clc,  c2c 

data  cO  /  299.79245  /  ! speed  of  light  x  le-6  m/s 

data  sdeglO  /  .173648177  /  !  Sine  of  10  degrees 

data  sdeglS  /  .258819045  /  !  Sine  of  15  degrees 

ierror  =  0 
aek2  =  2.*aek 
thetamax  =  0. 
kabs  =  0 
rpest  =  0. 

!  Initialize  flags  for  absorption  calculations. 

if ( (  tair  .ne.  0.  )  .or.  (  abshum  .ne.  0.  ))  kabs  =  1 
if (  gammaa  .ne.  0.  )  kabs  =  2 

!  Put  lower  limit  on  HMAX  and  RMAX 

rmax  -  amaxl (  rmax,  5000.  )  !Set  max.  range  to  no  less  than  5  km. 

hmax  =  amaxl (  hmax,  100.  )  !Set  max.  height  to  no  less  than  100  m. 

if (  hmin  .ge.  hmax  )  then 
ierror  =  -42 
return 
end  if 

hmin  =  aminl  (  hmin,  hmax-100.  ) 

dzout  =  (hmax-hmin)  /  f loat {  nzout  ) 
drout  =  rmax  /  float (  nrout  ) 

WL  —  cO  /  freq 
FKo  =2.  *  pi  /  WL 
con  =  l.e-6  *  fko 
f ko2  =  2.  *  fko 

! Loss  term  -  add  to  201og(r)  to  get  free  space  loss. 
plcnst=20 . *alogl0 (fko2) 
itpa  =  itp  +  1 

!  Allocate  and  initialize  all  arrays  associated  with  #  of  output  height 
!  and  range  points. 

call  allarray_apm(  IERROR  ) 
if (  ierror  .ne.  0  )  return 
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do  i  =  1,  nrout 

r  =  float (i)  *  drout 
rsqrd(i)  =  r  *  r 
rlogo(i)  =  20.  *  aloglO (  r  ) 
fslr(i)  =  rlogo(i)  +  plcnst 
rngout{i)  =  r 
end  do 

!  Calculate  constants  used  to  determine  antenna  pattern  factor 
!  IPAT  =  1  ->  omni 
!  IPAT  =  2  ->  gauss ian 
I  IPAT  =  3  ->  sine  x 
!  IPAT  -  4  ->  csc**2  x 
!  IPAT  =  5  ->  generic  height-finder 
I  IPAT  =  6  ->  user-defined  height-finder 

if (  nfacs  .gt.  0  )  then 
hfangr  =  hfang  *  radc 
do  i  =  1,  nfacs-1 

if(  hfangr (i+1)  .It.  hfangr (i)  )  ierror  =  -7 
end  do 

if (  ierror  .ne.  0  )  return 
end  if 

if ( (  ipat  .gt.  1  )  .and.  (  bwidth  .le.  l.e-4  ))  ierror  =  -10 
if (  ierror  .ne.  0  )  return 

if (  ipat  .eq.  1  )  bwidth  =  45.  ! For  RO  calculations. 

bw  =  bwidth  *  radc 
elv  =  elev  *  radc 
bw2  =  .5  *  bw 

if  (  ipat  .eq.  2  )  then  IGaussian 

afac  =  .34657359  /  (sin(  bw2  ))**2 
pelev  =  sin{  elv  ) 
elseif{  ipat  .eq.  4  )  then  !CSC**2 
sbw  =  sin(  bw  ) 
elseif (  ipat  .ne.  1  )  then 

afac  =  1.39157  /  sin(  bw2  ) 
a  =  pi  /  afac 

umax  -  atan(  a  /  sqrt{l.  -  a*a)  ) 
end  if 

!  Initialize  terrain  information. 

call  terinit (  ANGU,  RFIX,  HTERMAX,  IERROR  ) 
if (  ierror  .ne.  0  )  return 

!  Setup  output  height  arrays  with  respect  to  HMINTER. 
yfref  =  0. 

if (  fter  )  yfref  =  ty(l) 

do  i  =  0,  nzout 

z  =  hmref  +  float (i)  *  dzout 
zout(i)  =  z 
zro (i)  =  z  -  yfref 
zoutma(i)  =  z  -  ant ref 
zoutpa(i)  -  z  -  yfref  +  antht 
end  do 

!  Determine  what  hybrid  model (s)  to  use. 
call  getmode (  RFLAT  ) 
l  Initialize  refractivity  arrays. 
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call  refinit (  HTRAP,  HTHICK,  RMMIN,  RMMAX,  IERROR  ) 
if (  ierror  .ne.  0  )  return 

!  Initialize  troposcatter  variables. 

if (  itropo  .eq.  1  }  call  tropoinit 

!  Compute  grazing  angle  limit  based  on  2.5  times  Reed  &  Russell 
l  (p.  140)  limit,  but  not  less  than  .002  rad.  Double  this  value  if 
!  more  than  one  profile  was  entered,  then  adjust  for  trapping 
!  effects.  Compute  corresponding  RO  elevation  angle  limit  at 
!  transmitter,  ALFLIM. 

psilim  =  amaxl (  .002,  .04443  /  (freq  **  .3333333)  ) 

IF  (nprof  .GT.  1)  psilim  -  2.  *  psilim 

psilim  «  psilim  +  SQRT(ABS(2.  *  (rmmax  -  rmmin) ) ) 

alflim  =  SQRT{ABS (psilim  **2+2.  *  (rm(istart)  -  rm(0)))) 

!  Define  height  tolerance  for  Newton’s  method. 

ztol  =  .05 
lnmin  -  10 

if ( (  .not.  fter  )  .and.  (  freq  .le.  3001.  ))  lnmin  =  9 

I  Initialize  range  and  index  variables  for  RO  region. 

xROn  =  0. 
iROp  =  -1 

!  Determine  the  minimum  height  the  PE  model  must  reach. 

htest  «  htrap  +  hthick 

if (  ihybrid  .eq.  1  )  then 

ztest  =  amaxl (  htest,  1.2*htermax  ) 
else 

ztest  =  amaxl (  htlim,  antref  ) 
hmx  =  ztest  +  antref  +  rmax**2  /  aek2 
atest  =  atan(  hmx  /  max  ) 
alflim  =  amaxl (  alflim,  atest  ) 
end  if 

i  Now  determine  the  maximum  PE  propagation  angle  needed  to  get 
i  to  AT  LEAST  this  height.  Also  initialize  all  associated  PE 
!  variables. 

call  getthmax (  htest,  htermax,  rflat,  ztest,  alflim,  THETAMAX  ) 

if ( (  ihybrid  .eq.  2  )  .and.  (  zlim  .gt.  htlim  ))  ihybrid  =  0 

zlim  =  aminl (  htlim,  zlim  )  ! in  case  zlim  >  calculation  height  domain 

!  Maximize  THETAMAX  within  determined  FFT  size  for  terrain  cases  and  if 
!  using  calculation  modes  IHYBRID=0  or  2. 

if (, fter  )  then 

i  use  74%  of  ZMAX  instead  of  75%  to  leave  some  slop  and  ensure  the  FFT  size  is 
!  not  surpassed. 

if ( (  ihybrid  .ne.  1  )  .and.  (  .74*zmax  .gt.  zlim  ))  then 
thetafrac  =  alaunch  /  thetamax 
zmax  =  zlim  /  .74 

sthetamax  =  float (n)  *  wl  *  .5  /  zmax 
!  put  upper  limits  on  THETAMAX  depending  on  frequency. 
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if (  freq  .gt.  1000.  )  then 

sthetamax  =  aminl (  sthetamax,  sdeglO  ) 
else 

sthetamax  =  aminl (  sthetamax,  sdegl5  ) 
end  if 

delz=  wl  *  .  5  /  sthetamax 
thetamax  =  asin(  sthetamax  ) 
zmax  =  float (n)  *  delz 
alaunch  =  thetafrac  *  thetamax 
theta75  =  .75  *  thetamax 
end  if 
end  if 

!  For  calculation  modes  I HYBRID  =  1  or  2,  initialize  all  variables  for  use 
!  in  XO  calculations. 

ixostp  =  0 

if (  ihybrid  .ne.  0  )  then 

if  (  zlim  . le.  htlim-l.e-3  )  then 

!  Get  bin  #  within  calculation  domain  (with  respect  to  HMINTER)  at 
!  which  to  perform  spectral  estimation.  From  JZLIM  to  JZLIM-NPNTS. 

jzlim  =  int (  zlim  /  delz  ) 
zlim  =  f loat (  jzlim  )  *  delz 

! Determine  RATZ  and  IRATZ . 

j  =  iap 
id  -  1 

do  while {  j  .le.  irtemp  ) 

if (  htemp(j)  .gt.  zlim  )  exit 

if (  htemp(j)  .gt.  zrt(id)  )  id  =  id  +  1 

j  =  j  +  1 

end  do 

ira  =  amaxO (  1,  j-1  ) 
idg  =  id  -  1 
grd  =  gr(idg) 

rad  =  raya(ira)**2  +  2.  *  grd  *  (  zlim  -  htemp(ira)  ) 
aatz  =  0. 

if (  rad  .gt.  0.  )  aatz  =  sign(  1.,  raya(ira)  )  *  sqrt (  rad  ) 
ratz  =  rtemp(ira)  +  (aatz  -  raya(ira))  /  grd 
if ( (  ratz  .It.  rmax  )  .and.  (  zlim  .It.  htlim  ))  then 
k  =  1 

do  while (  rngout(k)  .It.  ratz  ) 
k  =  k  +  1 
end  do 

iratz  =  aminO (  nrout,  k  ) 
ixostp  =  iratz 
end  if 
else 

iratz  =  nrout  +  1 
ratz  =2.  *  rmax 
end  if 

end  if 

ixo  =  ixostp 

!  Determine  horizon  range  based  on  transmitter  height  and  0  receiver  height 
!  by  RHOR  -  3572.  *  sqrt (  1.3333  *  antref  ) 

rhor  -  4124.5387  *  sqrt (  antht  ) 

dr  =  fko2  *  delz**2  ! Just  use  this  as  a  basis,  DR  may  change  later, 
rkm  =  rmax  *  1 . e-3 
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!  Determine  PE  range  step  and  integer  increment  at  which  to  store 
!  propagation  factor,  angle,  and  range  at  ZLIM. 

if (  fter  )  then 

dr  —  aminl (  dr,  700.  ) 
if (  rkm  .ge.  5.  )  rllim  =  75. 
if (  rkm  .ge.  10.  )  rllim  =  90. 

if (  rkm  .ge.  15.  )  rllim  =  100. 

if (  rkm  .ge.  20.  )  rllim  =  110. 

if (  rkm  .ge.  30.  )  rllim  =  175. 

if {  rkm  .ge.  50.  )  rllim  =  200. 

if (  rkm  .ge.  75.  )  rllim  =  250. 

if (  rkm  .ge.  100.  )  rllim  =  300. 
dr  -  amaxl (  dr,  rllim  ) 
if (  rfix  . gt.  0.  )  then 
rd  =  rfix  /  dr 
if (  rd  .It.  1.  )  then 

dr  =  nint (  1.  /  rd  )  *  rfix 
else 

dr  =  rfix  /  nint (  rd  ) 
end  if 
end  if 
izinc  ~  1 
else 

if (  ihybrid  .eq.  0  )  then 
dr  =  aminl (  dr,  1000.  } 
dr  =  amaxl (  dr,  30.  ) 

if (  rmax  .ge.  rhor  )  dr  =  amaxl (  300.,  dr  ) 
end  if 
izinc  =  3 

if (  freq  .ge.  5000.  )  izinc  =  2 
if (  freq  .ge.  10000.  )  izinc  =  1 
end  if 

!  Determine  number  of  points  that  will  be  stored  in  FFACZ(,),  and 
!  allocate  and  initialize  all  arrays  associated  with  of  extended  optics  calcs. 

if (  ixostp  .gt.  0  )  then 
rmxdif  -  rmax  -  ratz 
niz  =  nint (  rmxdif  /  dr  ) 

izmax  =  niz  /  izinc  +  4  !add  some  slop 

i  initialize  variables  and  filter  array  for  spectral  estimation, 
npnts  =  8 

if (  fter  )  npnts=  16 
lnp  =  6 

if  (  fter  )  lnp  =  7 
ns  =  2**lnp 
np4  =  npnts/ 4 
np34  =3.*  np4 
cnp75  -  pi  /  np4 

call  allarray_xo (  IERROR  ) 
if  (  ierror  .ne.  0  )  return 

do  i  =  0,  np4 

fj=  cnp75  *  float (i) 
filtp(i)  =  .5  +  .5  *  cos(fj) 
end  do 

xocon  =  wl  /  ns  /  2.  /  delz 
end  if 

dr2  =  . 5  *  dr 

I  Initialize  variables  for  free-space  propagator  phase  calculations. 
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delp  -  pi/zmax 
FNorm  =  2.  /  N 
cnst  =  delp  /  fko 
nml  =  n  -  1 
dz2  =2.  *  delz 
n4  -  n  /  4 

!  Allocate  and  initialize  all  arrays  associated  with  PE  calcs, 
call  allarray_pe (  IERROR  ) 

!  Initialize  variables  and  set-up  filter  array  for  PE  calculations. 

n34  =  3.*  n4 
cn75  -  pi  /  n4 
do  i  =  0,  n4 

fj*  cn75  *  float (i) 
filt(i)  =  .5  +  .5  *  cos(fj) 
end  do 

!  Initialize  dielectric  ground  constants, 
ig  =  1 

call  dieinit 

if ( (  freq  .le.  300.  )  .or.  (  ipol  .eq.l  ))  call  getaln 
!  Initialize  starter  field, 
call  xyinit 

!  Transform  to  z-space. 
call  fft(  U  ) 

!  Initialize  Cl  and  C2  for  start  of  PE  calculations 

if(  ipol  .eq.l  )  then 

cl  =  . 5  *  (  u(0)  +  u(n)*root(n)  ) 
c2  =  .5  *  (  u (0) *rootm (n)  +  u(n)  ) 

do  i  -  1 ,  nml 

clc  =  u (i)  *  root ( i ) 
c2c  =  u(n-i)  *  rootm(i) 

cl  =  cl  +  clc 
c2  =  c2  +  c2c 
end  do 

cl  =  cl  *  rk 
c2  -  c2  *  rk 

end  if 

ylast  =  0. 

if (  fter  )  ylast  =  ty(l) 

ycurm  =  0. 
ycur  =  0. 

!  Define  mesh  array  in  height 
do  i=0,n 

ht ( i ) -  float (i) *delz 
end  do 

iz  =  1 
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1  Now  fill  height  array  separating  flat  earth  region  from  RO  region. 

!  The  height  is  determined  and  stored  at  each  output  range  step. 

call  fillht 

!  Determine  the  free-space  propagator  (p-space)  arrays, 
call  phasel 

i  For  special  case  when  ground  is  initially  flat,  but  at  non-zero 
!  height,  re-adjust  all  refractivity  arrays. 

if((  ihybrid  .eq.  1  )  .and.  (  abs(ty(l))  .gt.  l.e-3  )  .and.  (fter) )  then 
nlevel  =  levels 
yref  =  ty(l) 
href  =  0. 
ref ref  =  0. 
js  =  -1 

!  Get  refractivity  profile  level  at  which  the  height  of  the  ground  is  just 
!  above.  This  level  is  JS. 

do  i  =  0,  nlevel 

if ( (  yref  .le.  zrt(i+l)  )  .and.  (  yref  .gt.  zrt(i)  ))  js  «  i 
end  do 

!  Determine  the  refractivity  value  at  the  ground  and  fill  arrays  HREF ( )  and 
!  REFREFO  with  refractivity  profile  where  height  0.  now  refers  to  the  ground 
!  reference, i.e.,  either  local  ground  height  or  HMINTER. 

if (  js  .gt.  -1  )  then 
jspl  =  js  +  1 

frac  -  (yref  -  zrt ( js) ) / (zrt ( jspl)  -  zrt(js)) 

rmu  =  rm{ j s)  +  frac  *  (rm(jspl)  -  rm(js)) 

if (  int (  frac  )  .eq.  1  )  js  =  jspl 

newl  =  nlevel  -  js 

refref(O)  =  rmu 

href(0)  =  0. 

k  =  js  +  1 

do  jk  =  1,  newl 

refref(jk)  -  rm(k) 
href ( j k)  =  zrt(k)  -  yref 
k  -  k  +  1 
end  do 

levels  =  newl 
do  i  =  0,  levels 

rm (i)  =  ref ref (i) 
zrt (i)  =  href (i) 
end  do 
end  if 

do  i  =  0,  levels 
ipl  -  i  +  1 
raid  =  rm ( ipl)  -  rm(i) 
g  =  raid  /  (zrt  (ipl)  -  zrt(i)) 

if (  abs {  g  )  .It.  l.e-8  )  g  =  sign(  1.,  g  )*l.e-8 
gr (i)  =  g 
q  ( i )  =  2  .  *  raid 
end  do 
end  if 

i  if  smooth  surface  and  range- independent  case  then  initialize  all  refractivity 
!  and  z-space  propagator  arrays  now. 

if ((.not.  fter)  .and.  (  nprof  .eq.  1  ))  then 
call  intprof 
call  phase2 
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end  if 


if (  kabs  .  eq.  1  )  call  gasabs 

if{  kabs  .eq.  2  )  gasatt  -  gammaa  *  l.e-2 

end  subroutine  apminit 


A.1.1  Subroutine  ALLARRAY_APM 


,**********************  SUBR0UTINE  ALLARRAY_APM  ************************ 

!  Module  Name:  ALLARRAY_APM 

!  Module  Security  Classification:  UNCLASSIFIED 

!  Purpose:  This  routine  allocates  and  initializes  all  dynamically  dimensioned 
!  arrays  associated  with  A PM  general  info,  terrain,  ref ractivity, 

!  and  troposcatter  arrays. 

!  Version  Number:  1.0 

!  INPUTS: 

!  Argument  List:  None 

!  Common:  IGR,  ITPA,  ITROPO,  LVLP,  NFACS,  NROUT ,  NZOUT 
!  OUTPUTS: 

I  Argument  List:  IERROR 
!  Common:  None 

!  Public:  AD1(),  ADIFO,  CN2  ( )  ,  D2S(),  DIELEC  ( ,  )  ,  FSLR  ( )  ,  GR  ( )  , 

I  HFANGRO,  HLIMO,  HREF  ( )  ,  HTDUM  ( )  ,  HTFE  ( )  ,  IGRND  ( )  ,  Q(),  RDT  { )  , 

!  REFDUM  ( )  ,  REFREF  ( )  ,  RFAC1(),  RFAC2  ( )  ,  RGRND  { )  ,  RLOGO  ( )  ,  RLOSSO,  RM  { )  , 

I  RNGOUT ( ) ,  RSQRD ( ) ,  SLP ( ) ,  TH1 ( ) ,  THETAO ( ) ,  THETA2S ( ) ,  TX ( ) , 

!  TY  ( )  ,  ZOUTO,  ZOUTMAO,  ZOUTPA(),  ZRO  { )  ,  ZRT{) 

!  Modules  Used:  APM_MOD 

!  Calling  Routines:  APMINIT 

!  Routines  called: 

!  APM  Specific:  NONE 

!  Intrinsic:  ALLOCATE,  ALLOCATED,  DEALLOCATE 

!  GLOSSARY:  See  universal  glossary  for  common  and  public  variables. 

!  Input  Variables :  None 
!  Output  Variables: 

!  IERROR  -  Integer  variable  indicating  error  #  for  DEALLOCATE  and 

!  ALLOCATE  statements . 

!  Local  Variables: 

!  LVLPT  =  LVLP  +  1  ->  upper  boundary  limit  on  array  G 

subroutine  allarray_apm(  IERROR  ) 
use  apm_mod 
ierror  -  0 

if(  nfacs  .gt.  0  )  then 

IF (  ALLOCATED (  HFANGR  )  )  DEALLOCATE (  HFANGR,  stat=ierror  ) 

ALLOCATE (  HFANGR (NFACS ) ,  stat-ierror  ) 
if  (  ierror  .ne.  0  )  return 
HFANGR  =  0. 
end  if 
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if (  allocated (  rsqrd  )  )  deallocate {  rsqrd,  stat=ierror  ) 

allocate (  rsqrd (nrout) ,  stat=ierror  ) 
if (  ierror  .ne.  0  )  return 
rsqrd  =  0 . 

if {  allocated (  fslr  )  )  deallocate (  fslr,  stat=ierror  ) 
allocate (  fslr (nrout),  stat=ierror  ) 
if (  ierror  .ne.  0  )  return 
fslr  =  0. 

if (  allocated {  rlogo  )  )  deallocate (  rlogo,  stat=ierror  ) 
allocate (  rlogo (nrout ) ,  stat=ierror  ) 
if {  ierror  .ne.  0  )  return 
rlogo  =  0. 

if (  allocated (  rngout  )  )  deallocate (  rngout,  stat=ierror  ) 

allocate (  rngout (nrout) ,  stat=ierror  ) 
if (  ierror  .ne.  0  )  return 
rngout  =  0. 

if {  allocated {  zout  )  )  deallocate (  zout,  stat^ierror  ) 
allocate  (  zout (0 :nzout) ,  stat=ierror  ) 
if (  ierror  .ne.  0  )  return 
zout  =  0 . 

if (  allocated (  zro  )  )  deallocate (  zro,  stat=ierror  ) 
allocate (  zro (Ornzout) ,  stat=ierror  ) 
if (  ierror  .ne.  0  )  return 
zro  =  0. 

if {  allocated (  zoutma  )  )  deallocate (  zoutma,  stat=ierror  ) 

allocate  (  zoutma (0 :nz out) ,  stat-ierror  ) 
if (  ierror  .ne.  0  )  return 
zoutma  -  0 . 

if (  allocated (  zoutpa  )  )  deallocate {  zoutpa,  stat=ierror  ) 
allocate  (  zoutpa (0 : nzout ) ,  stat=ierror  ) 
if (  ierror  .ne.  0  )  return 
zoutpa  =  0 . 

if (  allocated (  hlim  )  )  deallocate (  hlim,  stat=ierror  ) 
allocate (  hlim  (nrout )f  stat=ierror  ) 
if (  ierror  .ne.  0  )  return 
hlim  -  0. 

if (  allocated (  htfe  )  )  deallocate (  htfe,  stat-ierror  ) 
allocate (  htfe (nrout),  stat^ierror  ) 
if (  ierror  .ne.  0  )  return 
htfe  =  0. 

if (  allocated (  rfacl  )  )  deallocate (  rfacl,  stat=ierror  ) 
allocate  (  rfacl (0 :nzout) ,  stat=ierror  ) 
if(  ierror  .ne.  0  )  return 
rfacl  =  0. 

if (  allocated (  rfac2  )  )  deallocate (  rfac2,  stat=ierror  ) 
allocate  (  rfac2 (0 : nzout) ,  stat-ierror  ) 
if (  ierror  .ne.  0  )  return 
rfac2  =  0 . 

if (  allocated (  rloss  )  )  deallocate (  rloss,  stat=ierror  ) 
allocate (  rloss (0 :nzout) ,  stat=ierror  ) 
if (  ierror  .ne.  0  )  return 
rloss  =  0. 

1  Allocate  arrays  associated  with  terrain  info. 
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if (  allocated (  tx  )  )  deallocate (  tx,  stat=ierror  ) 
allocate  (  tx(itpa),  stat=ierror  ) 
if (  ierror  .ne.  0  )  return 
tx  =  0. 

if (  allocated (  ty  )  )  deallocate (  ty,  stat=ierror  ) 
allocate  (  ty(itpa),  stat=ierror  ) 
if (  ierror  .ne.  0  )  return 
ty  =  0. 

if (  allocated (  sip  )  )  deallocate (  sip,  stat=ierror  ) 
allocate (  slp(itpa),  stat=ierror  ) 
if {  ierror  .ne.  0  )  return 
sip  =  0. 

if (  igr  . eq.  0  )  then 
igr  =  1 

IF (  ALLOCATED (  DIELEC  )  )  DEALLOCATE (  DIELEC,  stat=ierror  ) 
ALLOCATE (  DIELEC (2,  IGR),  stat-ierror  ) 
if (  ierror  .ne.  0  )  return 
DIELEC  =  0. 

IF (  ALLOCATED (  IGRND  )  )  DEALLOCATE (  IGRND,  stat-ierror  ) 
ALLOCATE (  IGRND (IGR),  stat=ierror  ) 
if (  ierror  .ne.  0  )  return 
IGRND  =  0 

IF (  ALLOCATED (  RGRND  )  )  DEALLOCATE (  RGRND,  stat=ierror  ) 
ALLOCATE {  RGRND (IGR),  stat=ierror  ) 
if (  ierror  .ne.  0  )  return 
RGRND  =  0. 
end  if 

IF (  ALLOCATED (  cn2  )  )  DEALLOCATE (  cn2,  stat=ierror  ) 

ALLOCATE (  cn2 (IGR) ,  stat-ierror  ) 
if (  ierror  .ne.  0  )  return 
cn2  =  cmplx(0.,  0.) 

!  Allocate  arrays  associated  with  refractivity  info. 

if (  allocated (  refdum  )  )  deallocate (  refdum,  stat=ierror  ) 
allocate (  refdum (0 : lvlp) ,  stat=ierror  ) 
if (  ierror  .ne.  0  )  return 
refdum  =  0. 

if(  allocated (  htdum  )  )  deallocate (  htdum,  stat=ierror  ) 
allocate  (  htdum (0 : lvlp) ,  stat=ierror  ) 
if (  ierror  .ne.  0  )  return 
htdum  =  0 . 

if (  allocated (  href  )  )  deallocate (  href,  stat=ierror  ) 
allocate  (  href (0 : lvlp) ,  stat=ierror  ) 
if(  ierror  .ne.  0  )  return 


if(  allocated (  ref ref  )  )  deallocate {  refref,  stat=ierror  ) 
allocate (  refref (0 : lvlp) ,  stat=ierror  ) 
if (  ierror  .ne.  0  )  return 
refref  -  0. 

lvlpt  =  lvlp  +  1 

if (  allocated (  gr  )  )  deallocate (  gr,  stat=ierror  ) 
allocate  (  gr{0: lvlpt),  stat=ierror  ) 
if(  ierror  .ne.  0  )  return 
gr  =  0. 
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if (  allocated (  q  )  )  deallocate (  q,  stat=ierror  ) 

allocate (  q(0:lvlpt),  stat=ierror  ) 
if (  ierror  .ne.  0  )  return 
q  =  0. 

if (  allocated (  rm  )  )  deallocate (  rm,  stat=ierror  ) 

allocate (  rm(0:lvlpt),  stat=ierror  ) 
if (  ierror  .ne.  0  )  return 
rm  =  0 . 

if (  allocated (  zrt  )  )  deallocate (  zrt,  stat=ierror  ) 
allocate  (  zrt  (O.-lvlpt) ,  stat=ierror  ) 
if (  ierror  .ne.  0  )  return 
zrt  =  0. 

Unitialize  and  allocate  arrays  associated  with  troposcatter  calculations, 
if (  itropo  .eq.  1  )  then 

if (  allocated (  adl  )  )  deallocate (  adl,  stat=ierror  ) 

allocate (  adl(itpa),  stat=ierror  ) 
if (  ierror  .ne.  0  )  return 
adl  =  0. 

if (  allocated (  adif  )  )  deallocate (  adif,  stat=ierror  ) 
allocate (  adif (Ocnzout) ,  stat=ierror  ) 
if (  ierror  .ne.  0  )  return 
adif  =  0. 

if (  allocated (  d2s  )  )  deallocate (  d2s,  stat=ierror  ) 
allocate  (  d2s (0:nzout) ,  stat=ierror  ) 
if (  ierror  .ne.  0  )  return 
d2s  =  0. 

if (  allocated (  rdt  )  )  deallocate (  rdt,  stat=ierror  ) 
allocate (  rdt (0:nzout) ,  stat=ierror  ) 
if (  ierror  .ne.  0  )  return 
rdt  =  0. 

if (  allocated (  thl  )  )  deallocate (  thl,  stat=ierror  ) 
allocate (  thl(itpa),  stat=ierror  ) 
if (  ierror  .ne.  0  )  return 
thl  =  0. 

if (  allocated (  thetaO  )  )  deallocate (  thetaO,  stat=ierror  ) 

allocate (  thetaO (nrout)  ,  stat=ierror  ) 
if (  ierror  .ne.  0  )  return 
thetaO  =  0 . 

if (  allocated (  theta2s  )  )  deallocate (  theta2s,  stat=ierror  ) 

allocate (  theta2s (0:nzout) ,  stat=ierror  ) 
if (  ierror  .ne.  0  )  return 
theta2s  =  0. 

end  if 

end  subroutine  allarray_apm 


A.1.2  Subroutine  ALLARRAY_PE 

t **********************  SUBROUTINE  ALLARRAYJPE  ************************ 
!  Module  Name :  AL LARRA  Y_ P E 

!  Module  Security  Classification:  UNCLASSIFIED 
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!  Purpose:  This  routine  allocates  and  initializes  all  dynamically 
!  dimensioned  arrays  associated  with  PE  calculations. 

i  Version  Number:  1.0 

!  INPUTS: 

!  Argument  List:  None 
!  Common:  N,  N4 

!  OUTPUTS: 

1  Argument  List:  IERROR 
!  Common :  None 

!  Public:  ENVPR { ) ,  FILT ( ) ,  FRSP{),  HT ( ) ,  PROFINT ( ) ,  ROOT ( ) ,  ROOTM ( ) , 
!  U(),  ULST(),  W()  ,  XDUM(),  YDUM  ( )  ,  YM() 

!  Modules  Used:  APMJMOD 

!  Calling  Routines :  APMINIT 

!  Routines  called: 

!  APM  Specific:  NONE 

!  Intrinsic:  ALLOCATE ,  ALLOCATED,  DEALLOCATE 

!  GLOSSARY:  See  universal  glossary  for  common  and  public  variables. 

!  Input  Variables:  None 
I  Output  Variables : 

!  IERROR  =  Integer  variable  indicating  error  #  for  DEALLOCATE  and 

!  ALLOCATE  statements. 

!  Local  Variables:  None 

subroutine  allarray_pe (  IERROR  ) 

use  apm_mod 

ierror  =  0 

if (  allocated (  root  )  )  deallocate (  root,  stat=ierror  ) 
allocate (  root(0:n),  stat=ierror  ) 
if  (  ierror  .ne.  0  )  return 
root  =  cmplx (  0 . ,  0 . ) 

if (  allocated (  rootm  )  )  deallocate (  rootm,  stat=ierror  ) 
allocate (  rootm(0:n),  stat=ierror  ) 
if{  ierror  .ne.  0  )  return 
rootm  =  cmplx (  0 . ,  0  . ) 

if (  allocated (  envpr  )  )  deallocate {  envpr,  stat=ierror  ) 
allocate (  envpr (0:n),  stat=ierror  ) 
if(  ierror  .ne.  0  )  return 
envpr  =  cmplx {  0 . ,  0 . ) 

if (  allocated (  frsp  )  )  deallocate {  frsp,  stat=ierror  ) 
allocate (  frsp(0:n),  stat=ierror  ) 
if  (  ierror  .ne.  0  )  return 
frsp  =  cmplx (  0 . ,  0 . ) 

if(  allocated (  u  )  )  deallocate (  u,  stat=ierror  ) 
allocate (  u(0:n),  stat-ierror  ) 
if (  ierror  .ne.  0  )  return 
u  -  cmplx (  0 . ,  0 . ) 

if (  allocated {  ulst  )  )  deallocate (  ulst,  stat=ierror  ) 
allocate (  ulst{0:n),  stat=ierror  ) 
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if  (  ierror  .ne.  0  )  return 
ulst  *  cmplx(  0.,  0. ) 

if (  allocated {  filt  )  )  deallocate (  filt,  stat-ierror  ) 
allocate {  filt(0:n4),  stat=ierror  ) 
if  (  ierror  .ne.  0  )  return 
filt  =  0. 

if (  allocated (  ht  )  )  deallocate (  ht,  stat=ierror  ) 

allocate (  ht(0:n),  stat=ierror  ) 
if (  ierror  .ne.  0  )  return 
ht  =  0. 

if (  allocated (  profint  )  )  deallocate (  profint,  stat=ierror  ) 
allocate {  profint (0:n) ,  stat=ierror  ) 
if  (  ierror  .ne.  0  )  return 
profint  =  0. 

if (  allocated (  xdum  )  )  deallocate (  xdum,  stat=ierror  ) 
allocate (  xdum(0:n),  stat=ierror  ) 
if  (  ierror  .ne.  0  )  return 
xdum  =  0 . 

if (  allocated (  ydum  )  )  deallocate (  ydum,  stat=ierror  ) 
allocate {  ydum(0:n),  stat^ierror  ) 
if  (  ierror  .ne.  0  )  return 
ydum  =0. 

if (  allocated (  w  )  )  deallocate (  w,  stat=ierror  ) 

allocate (  w(0:n),  stat=ierror  ) 
if (  ierror  .ne.  0  )  return 
w  =  cmplx (  0 . ,  0 .  ) 

if {  allocated (  ym  )  )  deallocate (  ym,  stat=ierror  ) 
allocate (  ym(0:n),  stat=ierror  ) 
if  (  ierror  .ne.  0  )  return 
ym  =  cmplx (  0 . ,  0 .  ) 

end  subroutine  allarray_pe 


A.1.3  Subroutine  ALLARRAY_XO 


SUBROUTINE  ALLARRAY  XO  ************************ 


!  Module  Name  *  ALLARRAY _ XO 

!  Module  Security  Classif ication:  UNCLASSIFIED 

!  Purpose:  This  routine  allocates  and  initializes  all  dynamically 
!  dimensioned  arrays  associated  with  XO  calculations . 

!  Version  Number:  1.0 

!  INPUTS : 

!  Argument  List:  None 

!  Common:  IZMAX,  NP4 ,  NROUT ,  NS 

!  OUTPUTS: 

!  Argument  List:  None 
!  Common :  None 

!  Public:  FFROUT  ( ,  )  ,  FILTP(),  GRAD  ( )  ,  HTR  ( )  ,  LVL  ( )  ,  SPECTRO,  XP  ( )  ,  YP  ( ) 
!  Modules  Used:  APM_MOD 
!  Calling  Routines:  APMINIT 
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!  Routines  called: 

!  APM  Specific:  NONE 

!  Intrinsic:  ALLOCATE ,  ALLOCATED,  DEALLOCATE 

!  GLOSSARY:  See  universal  glossary  for  common  and  public  variables. 

!  Input  Variables:  None 
!  Output  Variables: 

!  I ERROR  =  Integer  variable  indicating  error  #  for  DEALLOCATE  and 

!  ALLOCATE  statements. 

!  Local  Variables:  None 

subroutine  allarray_xo (  I ERROR  ) 

use  apm_mod 

ierror  -  0 

if (  allocated{  ffrout  )  )  deallocate (  ffrout,  stat=ierror  ) 
allocate (  ffrout (2, nrout) ,  stat=ierror  ) 
if (  ierror  .ne.  0  )  return 
ffrout  =  0. 


if (  allocated (  ffacz  )  )  deallocate {  ffacz,  stat-ierror  ) 
allocate (  f facz (3, izmax) ,  stat-ierror  ) 
if (  ierror  .ne.  0  )  return 
ffacz  =  0. 

if (  allocated (  grad  )  )  deallocate (  grad,  stat-ierror  ) 
allocate (  grad {0 : Ivlp, izmax) ,  stat-ierror  ) 
if (  ierror  .ne.  0  )  return 
grad  -  0. 

if {  allocated (  htr  )  )  deallocate (  htr,  stat-ierror  ) 

allocate (  htr (0 : lvlp, izmax) ,  stat-ierror  ) 
if (  ierror  .ne.  0  )  return 
htr  =0. 

if (  allocated (  lvl  )  )  deallocate (  lvl,  stat-ierror  ) 

allocate (  lvl (izmax),  stat-ierror  ) 
if (  ierror  .ne.  0  )  return 
lvl  -  0. 

!  Allocate  and  initialize  all  arrays  associated  with  spectral  estimation 
!  of  PE  field. 


if (  allocated (  filtp  )  )  deallocate (  filtp,  stat-ierror  ) 

allocate (  filtp (0:np4) ,  stat-ierror  ) 
if (  ierror  .ne.  0  )  return 
filtp  -  0. 


if {  allocated (  xp  ) 
allocate (  xp(0:ns), 
if (  ierror  .ne.  0  ) 
xp  =  0. 


)  deallocate {  xp, 
stat-ierror  ) 
return 


stat-ierror  ) 


if (  allocated(  yp  ) 
allocate (  yp(0:ns), 
if (  ierror  .ne.  0  ) 
yp  =  0. 


)  deallocate (  yp, 
stat-ierror  ) 
return 


stat-ierror  ) 


if (  allocated (  spectr  )  )  deallocate (  spectr,  stat-ierror  ) 
allocate (  spectr (0:ns) ,  stat-ierror  ) 
if(  ierror  .ne.  0  )  return 
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spectr  =  0. 

end  subroutine  allarray_xo 


A.1.4  Subroutine  ANTP AT 


i  **************************  SUBROUTINE  ANTPAT  ****************************** 
!  Module  Name:  ANTPAT 

\  Module  Security  Classification:  UNCLASSIFIED 

t  purpose:  Determines  the  antenna  pattern  factor  for  angle  passed  to  routine. 
!  Version  Number:  1.0 


!  INPUTS: 

!  Argument  List:  ANG 

!  Common:  AFACf  ALPHAD,  BW,  ELV,  IPAT,  NFACS ,  PELEV,  SBW,  UMAX 
!  Public:  HFANGR ( ) ,  HFFAC { ) 

!  OUTPUTS: 

!  Argument  List:  PATFAC 
!  Common :  NONE 

!  Modules  Used:  APM_MOD 

!  Calling  Routines:  FEM,  ROCALC,  TROPO,  TROPOINIT,  XYINIT 

!  Routines  called: 

!  APM  Specific:  NONE 

!  Intrinsic:  ABS,  AMAX1,  AMINl,  EXP,  SIN 
i  GLOSSARY:  See  universal  glossary  for  common  variables. 

!  Input  Variables: 

!  ANG  =  elevation  angle  at  transmitter 

!  Output  Variables: 

!  PATFAC  =  antenna  pattern  factor  for  angle  ANG 

!  Local  Variables: 

j  UDIF  -  Angle  relative  to  the  elevation  angle  of  the  main  beam, 

subroutine  antpat (  ang,  PATFAC  ) 
use  apm_mod 

!  IPAT  -  1  gives  Omnidirectional  antenna  pattern  factor  :  f (u)  =1 
!  Default  for  Omni  antenna  pattern 

patfac  =  1. 

!  In  the  following  pattern  definitions,  "ua"  refers  to  the  angle  for  which 
!  the  antenna  pattern  is  sought,  and  "u0"  refers  to  the  elevation  angle. 

select  case  (  ipat  ) 

case  (  2  ) 

I  IPAT  =  2  gives  Gaussian  antenna  pattern  based  on 
!  f(p-pO)  =  exp (-w**2  *  (  p-pO  ) **2  )  /  4,  where  p  =  sin(u)  and 
!  pO  -  sin(uO) 

pr  =  sin (ang)  -  pelev 
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patfac  -  exp(-pr  *  pr  *  afac) 
case  (  4  ) 

!  IPAT  =  4  gives  csc-sq  pattern  based  on 
I  f(u)  =1  for  ua-uO  <=  bw 

i  f(U)  =  sin(bw)  /  sin(ua-uO)  for  ua-uO  >  bw 
!  f(u)  =  maximum  of  .03  or  [1+ (ua-uO) /bw)  for  ua-uO  <  0 

udif  =  ang  -  elv 

if {  udif  .gt.  bw  )  then 

patfac  =  sbw  /  sin(  udif  ) 
elseif (  udif  .It.  0  )  then 

patfac  =  aminl (  1.,  amaxl (  .03,  (1.  +  udif/bw)  )  ) 

end  if 

case  (  3,  5,  6  ) 

!  IPAT  =  3  gives  sin(x)/x  pattern  based  on 

!  f (ua-uO)  =  sin(x)  /  x  where  x  =  afac  *  sin {ua-uO )  for  | ua-uO |  <=  umax 
!  f (ua-uO)  =  0  for  I ua-uO I  >  umax 

!  IPAT  =  5  gives  height-finder  pattern  which  is  a  special  case  of  sin(x)/x 

udif  -  ang  -  elv 
if (  ipat  .ge.  5  )  then 
chi  =  elv 

if (  alphad  .gt.  elv  )  then 
udif  =  ang  -  alphad 
chi  =  alphad 
end  if 
end  if 

if (  abs (udif )  .le.  l.e-6  )  then 
patfac  =  1. 

elseif {  abs (  udif  )  .gt.  umax  )  then 
patfac  =  0. 
else 

arg  =  afac  *  sin (  udif  ) 
patfac  =  sin(  arg  )  /  arg 
end  if 

!  For  IPAT  =  6,  user-specified  height-finder  antenna  pattern, 

!  adjust  user-defined  height-finder  pattern  by  appropriate  factor 
!  based  on  HFANGR ( )  and  HFFAC ( )  arrays.  Adjustment  is  not  necessary 
!  when  CHI  is  less  than  the  first  user-defined  angle  (HFANGR (1)). 

IF (  ipat  .EQ.  6  )  then 

if (  chi  .GT.  hfangr (1)  )  THEN 
i  =  nfacs 

DO  WHILE  (chi  .LE.  hfangr (i) ) 
i  “  i  -  1 
END  DO 

patfac  =  patfac  *  hffac(i) 
end  if 
END  IF 

case  default 

!  do  nothing 

end  select 

end  subroutine  antpat 
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A.1.5  Subroutine  DIEINIT 


i  *************************  SUBROUTINE  DIEINIT  ***************************** 


!  Module  Name:  DIEINIT 

!  Module  Security  Classification:  UNCLASSIFIED 

!  purpose:  This  routine  calculates  conductivity  and  permittivity 
!  as  a  function  of  frequency  in  MHz.  All  equations  and  coef- 

j  ficients  were  obtained  by  using  a  SUMMASKETCH  digitizer  to  digitize 

!  the  CCIR  volume  5  curves  on  page  74.  The  digitized  data  were 

i  then  used  with  TABLECURVE  software  to  obtain  the  best  fit 

i  equations  and  coefficients  used  in  this  subroutine.  In  some 

i  cases  two  sets  of  equations  were  required  to  obtain  a  decent 

I  fit  across  the  100  MHz  -  100GHz  range.  These  curves  fit  the 

f  digitized  data  to  within  5%. 

!  Version  Number:  1.0 


INPUTS : 

Argument  List:  NONE 
Common:  FREQ,  IGR 

Public:  DIELEC ( ,  )  ,  IGRND ( ) ,  RGRND ( ) 


!  OUTPUTS: 

l  Argument  List:  NONE 
I  Public:  CN2() 

!  Modules  Used:  APM_M0D 

!  Calling  Routines:  APMINIT 

!  Routines  called: 

!  APM  Specified:  NONE 
!  Intrinsic:  DBLE,  SQRT 


!  GLOSSARY: 

!  Input  Variables : 

i  See  universal  glossary  for  common  and  public  variables 

!  Output  Variables: 

i  See  universal  glossary  for  common  and  publicvariables 

!  Local  Variables : 

i  EPSILON  =  relative  permittivity 

!  SIGMA  =  conductivity 

!  Fl-8  =  Frequency  in  MHz  to  the  nth  power.  I.e.,  f5  =  freq**5 

!  a ( )  thru  F ( )  =  polynomial  coefficients  for  use  in  determining 

!  EPSILON  and  SIGMA. 


subroutine  dieinit 
use  apm_mod 

dimension  a (18),  b(18),  c(18),  d(18),  e(18),  f { 1 8 ) 

double  precision  fl,  f2,  f3,  f4,  f5,  f6,  f7,  f8,  f9 

data  (a (i) , i=l, 18 )  /  1 . 4114535e-2,  3.8586749,  79.027635,  & 

-0.65750351,  201.97103,  857.94335,  & 

915.31026,  0.8756665,  5 . 5990969e-3,  & 

215.87521,  .17381269,  2 . 4 625032e-2 ,  & 

-4 . 9560275e-2,  2 . 2953743e-4 ,  .000038814567,  & 

1 . 24347 92E-04 ,  51852.543,  4.13105E-05  / 
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data  (b (i) , i=l, 18)  /  -5 . 21224 97e-8 ,  -2.11792956-5,  -2.20833086-5,  & 

5 . 5620223e-5,  -2 . 5539582e-3,  -8 . 9983662e-5 ,  & 

-9 . 4530022e-6,  4 . 7236085e-5,  8 . 77 98277e-5,  & 

-7 . 6649237e-5,  1 . 2655183e-4,  1 . 8254018e-4,  & 

2 . 9876572e-5,  -8 . 1212741e-7 ,  8 . 467523E-02,  & 

2.824598E-04,  3 . 883854E-02 ,  2.03589E-07  / 
data  (c (i) , i=l, 18 )  /  5 . 8547829e-ll,  9 . 1253873e-4,  -3 . 54 86605e-4 ,  & 

6 . 6113198e-4 ,  1 . 2197967e-2,  5 . 5275278e-2,  & 

-4 . 0348211e-3,  2 . 6051 966e-8 ,  6 . 2451017e-8 ,  & 

-2 . 6151055e-3,  -1 . 67 90756e-9,  -2 . 664754e-8 ,  & 

-3 . 0561848e-10,  1 . 80454 61e-9,  9 . 878241E-06,  & 

8 . 680839E-07 ,  389.58894,  -3.1739E-12  / 
data  (d (i) , i-1, 18)  /  -7 . 6717423e-16,  6 . 5727504e-10,  2 . 7067836e-9,  & 

3 . 0140816e-10 ,  3 . 78531 69e-5,  8 . 8247139e-8 ,  & 

4 . 892281e-8,  -9 . 235936e-13,  -7 . 1317207e-12 ,  & 

1 . 2565999e-8,  1 . 1037608e-14 ,  7 . 6508732e-12,  & 

1 . 1131828e-15,  -1 . 960677e-12,  -9 . 736703E-05,  & 

-6 . 755389E-08,  6 . 832108E-05,  4.52331E-17  / 
data  (e(i) ,1=1,18)  /  2 . 9856318e-21,  1 . 5309921e-8,  8.210184e-9,  & 

1 . 4876952e-9,  -1 . 728776e-6,  0.0,  & 

7 . 4342897e-7,  1 . 4560078e-17,  4 . 2515914e-16,  & 

1 . 9484482e-7,  -2 . 9223433e-20,  -7 . 4193268e-16,  & 

0.0,  1 . 2569594e-15,  7 . 990284E-08,  & 

7 . 2701689e-ll ,  0.,  0.  / 

data  (f(i) ,1-1,18)  /  0.,  -1 . 9647 664e-15,  -1 . 0007669e-14 ,  0.,  0.,  & 

0.,  0.,  -1 . 1129348e-22,  -1 . 240806e-20 ,  0.,  & 

0.,  0.,  0.,  -4 . 4 6811e-19,  3 . 269059E-07 ,  & 

2 . 8728975e-12,  0.,  0.  / 


f 1  =  dble (  freq  ) 
f2  =  fl  *  fl 
f3  -  fl  *  f2 
f4  —  fl  *  f 3 
f5  —  fl  *  f 4 
f6  «  fl  *  f5 
f7  =  fl  *  f 6 
f8  =  fl  *  f 7 
f9  =  fl  *  f 8 

do  i  =  1,  igr 

select  case  (  igrnd(i)  ) 

case (  0  )  !  Permittivity  and  conductivity  for  salt  water 

epsilon  -  70. 
sigma  =  5. 
m  =  1 
ml  =  m  +  1 

if(  fl  .gt.  2253.5895  )  epsilon  =  1.  /  (  a  (m)  +  b(m)*fl  & 
+  c(m)*f2  +  d(m)*f3  +  e(m)*f4  ) 
if (  fl  .gt.  1106.207  )  then 

sigma  =  a (ml)  +  c(ml)*fl  +  e{ml)*f2 

sigma  -  sigma  /  (  1.+  b{ml)*fl  +  d(ml)*f2  +  f{ml)*f3  ) 
end  if 


case {  1  )  ! Permittivity  and  conductivity  for  fresh  water 

epsilon  =  80.0 
m  ~  3 
ml  =  m  +  1 

IF (  fl  .gt.  6165.776  )  THEN 

epsilon  =  a (m)  +  c(m)*fl  +  e(m)*f2 

epsilon  =  epsilon/(l.  +  b(m)*fl  +  d(m)*f2  +  f(m)*f3  ) 
end  if 

IF (  fl  .gt.  5776.157)  THEN 
k  -  2 
else 

ml  =  ml  +  1 
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k  =  -1 
end  if 

sigma  =  a  (ml)  +  c(ml)*fl  +  e(ml)*f2 

sigma  —  (sigma  /  (1.  +  b(ml)*fl  +  d  (ml )  *f2 )  )  **k 

case(  2  )  ! Permittivity  and  conductivity  for  wet  ground 

epsilon  =  30.0 
m  =  6 

IF (  fl  .ge.  4228.11  )  m  =  7 
if(  fl  .gt.  1312.054  )  then 

epsilon  =  a (m)  +  c(m)*fl  +  e(m)*f2 

epsilon  =  SQRT (  epsilon  /  (1.  +  b(m)*fl  +  d(m)*f2)  ) 
end  if 

IF (  fl  -gt.  15454.4)  then 
ml  =  8 

g  =  3 . 3253339e-28 
else 

ml  =  9 

g  =  1 . 3854354e-25 
end  if 

sigma  =  a  (ml)  +  b(ml)*fl  +  c(ml)*f2.+  d(ml)*f3  +  e(ml)*f4 
sigma  *  sigma  +  f(ml)*f5  +  g*f6 

case(  3  )  ‘Permittivity  and  conductivity  for  medium  dry  ground 
epsilon  =  15.0 
IF (  fl  .gt.  4841.945)  THEN 
m  =  10 

epsilon  =  a  (m)  +  c(m)*fl  +  e(m)*f2 

epsilon  =  SQRT (  epsilon  /  (1.  +  b(m)*fl  +  d(m)*f2)  ) 
end  if 
ml  =  12 

IF (  fl  .gt.  4946.751)  ml  ==  11 

sigma  =  (a  (ml)  +  b(ml)*fl  +  c(ml)*f2  +  d(ml)*f3  +  e(ml)*f4)**2 

case (  4  )  ‘Permittivity  and  conductivity  for  very  dry  ground 
epsilon  =  3.0 

IF (  fl  .It.  590.8924  )  then 
sigma  =  1.0e-4 
else 

IF (  fl  .gt.  7131.933)  THEN 
ml  =  13 

sigma  -  (a (ml)  +  b(ml)*fl  +  c(ml)*f2  +  d(ml)*f3)**2 
else 

ml  -  14 

g  =  9 . 4623158e-23 
h  =  -1 . 1787443e-26 
s  =  7.9254217e-31 
t  -  -2 . 2088286e-35 

sigma  =  a (ml)  +  b(ml)*fl  +  c(ml)*f2  +  d(ml)*f3 
sigma  ~  sigma  +  e(ml)*f4  +  f(ml)*f5  +  g*f6 
sigma  —  sigma  +  h*f7  +  s*f8  +  t*f9 
end  if 
end  if 

case (  5  )  ! Permittivity  and  conductivity  for  ice  at  -1  degree  C 

epsilon  =  3.0 
IF  (fl  .le.  300.0)  THEN 
m  -  15 

signum  =  a  (m)  +  c  (m)  *  f  1  +  e  (m)  *  f2 
sigdnom  =  1.0  +  b  (m)  *  fl  +  d  (m)  *  f2  +  f  (m)  *  f3 
ELSE 

m  -  16 

g  -  -2.6416983e-14 
h  =  -1.8795958e-18 
si  =  1 . 37552E-18 

signum  =  a (m)  +  c(m)*fl  +  e(m)*f2  +  g*f3  +  si*f4 
sigdnom  =  1.0  +  b(m)*fl  +  d(m)*f2  +  f(m)*f3  +  h*f4 
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END  IF 

sigma  =  signum  /  sigdnom 

case (  6  )  'Permittivity  and  conductivity  for  ice  at  -10  degrees  C 
epsilon  =3.0 

IF (  fl  .le.  8753.398)  THEN 
m  -  17 

sigma  =  1.0  /  ((a(m)  +  c(m)*fl)  /  (1.0  +  b(m)*fl  +  d(m)*f2)) 
ELSE 
ill  =  18 

sigma  =  a  (m)  +  b(m)*fl  +  c(m)*f2  +  d(m)*f3 
END  IF 

case  (  7  ) 

epsilon  =  dielec (1,1) 
sigma  =  dielec  (2,i) 

case  default 
!  Do  nothing 
end  select 

si  =  sigma  *  60.  *  wl 
cn2(i)  =  cmplx(  epsilon,  si  ) 

end  do 

end  subroutine  dieinit 


A.1.6  Subroutine  FFT 


***************************  SUBROUTINE  FFT  ******************************** 
Module  Name :  FFT 

Module  Security  Classification:  UNCLASSIFIED 

Purpose:  Performs  fast  Fourier  sine  transform  on  complex  array  U. 

Version  Number:  1.0 
INPUTS: 

Argument  List :  UXY ( ) 

Common:  LN,  N 

OUTPUTS: 

Argument  List:  UXY ( ) 

Common :  NONE 

Public:  XDUM(),  YDUM ( ) 

Modules  Used:  APM_MOD 

Calling  Routines:  APMINIT,  FRSTP 

Routines  called: 

APM  Specific:  SIN FFT 
Intrinsic:  REAL,  IMAG,  CMPLX 

GLOSSARY:  See  universal  glossary  for  common  variables  and  parameters. 

Input  Variables: 

UXY ( )  =  Complex  field  to  be  transformed. 

Output  Variables: 

UXY ( )  -  Transform  of  complex  field. 
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subroutine  f ft (  UXY  ) 
use  apm_mod 
complex  uxy ( 0 : * ) 
do  i  =  0,  n 

xdum(i)  =  real  (  uxy(i)  ) 
ydum(i)  =  imag (  uxy(i)  ) 
end  do 

call  sinfft(  In,  XDUM  ) 
call  sinfft (  In,  YDUM  ) 

do  i  =  0,  n 

uxy (i)  =  cmplx (  xdum(i),  ydum(i)  ) 
end  do 

end  subroutine  fft 


A.1.7  Subroutine  FFTPAR 


i  ************************  SUBROUTINE  FFTPAR  *********************** 
!  Module  Name :  FFTPAR 

i  Module  Security  Classification:  UNCLASSIFIED 

!  Purpose:  Determines  and  computes  the  FFT  size  needed  for  a  given 
!  problem,  plus  all  other  associated  PE  variables. 

!  Verion  Number:  1.0 


!  INPUTS: 

!  Argument  List:  IFLAG,  LNMIN,  THETAMAX,  WL 
!  Common:  NONE 

!  OUTPUTS: 

!  Argument  List:  DELZ,  LN,  N,  ZLIM,  ZMAX 
!  Common :  NONE 

!  Calling  Routines:  GETTHMAX 

!  Routines  Called: 

!  APM  Specific:  NONE 
!  Intrinsic:  FLOAT,  SIN 


!  GLOSSARY: 

!  Input  Variables: 

!  IFLAG  =  flag  indicating  whether  to  determine  maximum  FFT  size 

i  based  on  given  THETAMAX  and  height  needed  to  reach  (ZLIM), 

j  or  determine  maximum  height  ZLIM  based  on  given  THETAMAX 

!  and  FFT  size. 

i  =  0  ->  determine  N,  LN  given  THETAMAX  and  ZLIM 

!  =  1  ->  determine  ZLIM  given  THETAMAX  and  LN 

!  LNMIN  =  Minimum  power  of  2  transform  size.  LNMIN  =  9  for  smooth 

1  surface  and  frequencies  <=  3000  MHz.  LNMIN  =  10  all  other 

!  cases. 

i  THETAMAX  =  Maximum  PE  propagation  angle  in  radians. 

!  WL  =  Wavelength  in  meters 

!  Output  Variables : 

!  DELZ  =  Bin  width  in  z-space  -  WL  /  { 2 *sin (THETAMAX) ) 

!  LN  =  Power  of  2  transform  size,  i.e.  N  -  2**LN 
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!  N  =  Transform  size 

!  ZLIM  =  Maximum  internal  height  (HTLIM)  or  .  75*ZMAX,  whichever 

!  is  smaller. 

!  ZMAX  =  Maximum  height  of  PE  calculation  domain  =  N  *  DELZ 

!  Local  Variables: 

!  STHETAMAX  =  Sine  of  THETAMAX. 

!  ZT  =  ZLIM  with  a  "fudge"  factor. 

subroutine  fftpar(  lnmin,  wl,  thetamax,  iflag,  ZLIM,  ZMAX,  DELZ,  LN,  N  ) 

sthetamax  =  sin(  thetamax  ) 
delz=  wl  *  .  5  /  sthetamax 

if (  iflag  .eq.  0  )  then 

!  Set  lower  FFT  limit  to  2**10  if  terrain  profile  or  I HYBRID  =  1,  otherwise, 

!  lower  limit  is  2**9. 

In  =  lnmin 
N~2**LN 

zmax=delz*float (n) 

!  Determine  transform  size  needed  to  perform  calculations  to  a  height  of  ZTEST . 

zt  =  zlim  -  1 . e-3 

do  while {  .75*zmax  .It.  zt  ) 

In  =  In  +  1 
n  =  2**ln 

zmax  =  delz  *  float (n) 
end  do 

elseif (  iflag  .eq.  1  )  then 

!  Determine  the  maximum  height  that  can  be  reached  given  THETAMAX 
!  and  LN . 

N=2**LN 

zmax=delz* float (n) 
end  if 

zlim  =  .75  *  zmax 
end  subroutine  fftpar 


A.1.8  Subroutine  FILLHT 


,*************************  SUBR0UTINE  FILLHT  ************************* 

!  Module  Name:  FILLHT 

!  Module  Security  Classification:  UNCLASSIFIED 

!  Purpose:  This  routine  calculates  the  effective  earth  radius  for  an 
!  initial  launch  angle  of  5  degrees.  Then  it  fills  the  array 

!  HTFE ( )  with  height  values  of  the  limiting  sub-model  (depending 

!  on  value  of  IHYBRID)  at  each  output  range.  I.e.,  if 

-  IHYBRID  =  1,  then  HTFE()  will  contain  height  values  at  each 

!  output  range  separating  the  FE  region  from  the  RO  region. 

!  If  IHYBRID  -  0  or  2,  then  HTFE ( )  will  contain  those  height 

!  values  at  each  output  range  at  which  the  initial  launch  angle 

!  has  been  traced  to  the  ground  or  surface.  These  height  values 

■  represent  the  separating  region  where,  above  that  height,  valid 

*  loss  is  computed,  and  below  that  height,  no  loss  is  computed 
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(outside  PE  angle  limit) . 


!  Version  Number:  1.0 
!  INPUTS: 

!  Argument  List:  NONE 

i  Common:  ALAUNCH,  ANTHT,  ANTREF,  HMREF,  HTLIM,  IHYBRID,  ISTART,  LEVELS 
!  NROUT,  YFREF 

!  Public:  GR(),  RNGOUT ( ) ,  ZRT() 

!  Data:  RTST 

!  OUTPUTS: 

!  Argument  List:  NONE 

]  Common:  TWOKA 

!  Public:  HTFE ( ) 

1  Modules  Used:  APM__MOD 

I  Calling  Routines:  APMINIT 

!  Routines  Called: 

!  APM  Specific:  NONE 
!  Intrinsic:  AMAX1,  AMIN1 

!  GLOSSARY: 

i  input  Variables:  See  universal  glossary  for  common  variables. 
i  Output  Variables:  See  universal  glossary  for  common  variables. 

!  Local  Variables: 

!  AO  =  Angle  at  start  of  trace  in  radians. 

!  Al  =  Angle  at  end  of  trace  in  radians. 

i  GRD  =  Gradient  of  current  refractivity  layer  being  traced  through. 

I  HO  -  Height  at  start  of  trace  in  meters, 

i  HI  =  Height  at  end  of  trace  in  meters. 

!  H5  =  Height  of  5  degree  ray  traced  to  each  output  range  point 

1  I QUIT  =  Flag  to  end  loop. 

!  JL  =  Index  in  indicating  location  of  source  height  in  array  ZRT() 

!  R0  =  Range  at  start  of  trace  in  meters, 

i  Rl  =  Range  at  end  of  trace  in  meters, 

t  ro  =  Current  output  range  to  trace  to. 

i  yar  -  Height  of  image  source. 

subroutine  fillht 

use  apm_mod 

data  a5  /  0.087266  /  !5  degrees  in  radians 

data  tan5  /  8 . 748866353e-2  /  I  tangent  of  5  degrees 

!  Define  in  line  ray  trace  functions: 

radal(  a,  b  )  =  a**2  +2.  *  grd  *  b 
rp(  a,  b  )  -  a  +  b  /  grd 

ap(  a,  b  )  =  a  +  b  *  grd 

hp{  a,  b,  c  )  =  a  +  (  b**2  -  c**2  )  /  2.  /grd 

if (  ihybrid  .eq.  1  )  then 

! Trace  5  degree  elevation  angle  ray  up  to  maximum  height  HTLIM  to  define 
I  effective  earth  radius.  Then  compute  twoka  (2*ek*a)  for  use  in  FEM  to 
'correct  heights  for  earth  curvature  and  average  refraction. 

aO  =  a5 
rO  =  0. 
i  -  0 


Ia=a0,  b=hl-h0 
l  a=r0,  b=al-a0 
!a=a0,  b=rl-r0 
!  a=h0,  b=al,  c=a0 
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DO  WHILE  ( ( zrt ( i  +  1)  .  LT .  htlim)  .AND.  (i  .LT.  levels)) 

grd  =  gr (i) 

rad  =  radal (  aO,  zrt (i+1) -zrt (i)  ) 
al  -  sqrt {  rad  ) 
rl  =  rp(  rO,  al-aO  ) 
aO  =  al 
rO  =  rl 
i  =  i  +  1 
END  DO 
grd  =  gr (i) 

rad  =  radal (  aO,  htlim-zrt (i)  ) 
al  =  sqrt {  rad  ) 
rl  =  rp(  rO,  al-aO  ) 

twoka  =  (rl  **  2)  /  (htlim  -  a5  *  rl) 

!  Fill  height  array  separating  FE  region  from  RO  region. 

yar  =  yfref  -  antht 
do  i  =  1,  nrout 
htfe (i)  =  yfref 

if(  rngout(i)  .gt.  rtst  )  then 

h5  =  amaxl(  yfref,  yar  +  tan5  *  rngout(i)  ) 
htfe(i)  =  aminl (  htlim,  h5  ) 
end  if 
end  do 

else 

1  For  PE+XO  or  PE  running  modes,  trace  initial  launch  angle  until  it 
!  hits  ground,  storing  heights  traced  at  each  output  range. 

aO  -  -alaunch 
rO  =  0. 
hO  =  antref 
jl  =  istart 
iquit  =  0 
jr  =  1 

do  while ( (  iquit  .eq.  0  )  .or.  (  jr  . le .  nrout  )) 
htfe(jr)  -  0. 
ro  =  rngout(jr) 

do  while { (  rO  .It.  ro  )  .and.  (  iquit  .eq.  0  )) 
rl  =  ro 

if(  aO  .It.  0  )  grd  =  gr(jl  -  1) 
al  =  ap (  aO,  rl~r0  ) 
hi  =  hp (  hO,  al,  aO  ) 

if (  al  .It.  0.  )  then 

if  (  hi  .It.  zrt  (jl-l)+l.e-3  )  then 
jl  =  jl  -  1 
hi  =  zrt(jl) 

rad  =  radal  (  aO,  hl-hO  ) 
al  =  -sqrt (  rad  ) 
rl  =  rp(  rO,  al-aO  ) 
end  if 
else 

iquit  =  1 
end  if 

I  The  ray  has  hit  surface  and  is  reflected, 
if (  hi  .It.  l.e-3  )  iquit  =  1 
aO  =  al 
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hO  =  hi 
rO  =  rl 


end  do 

htfe ( jr)  =  hO 
jr  =  jr  +  1 

end  do 

jr  -  jr  -  1 
do  i  =  jr,  nrout 
htfe (i)  =  hmref 
end  do 

end  if 

end  subroutine  fillht 


A.1.9  Subroutine  GASABS 


i  ***************************  SUBROUTINE  GASABS  ************************* 
!  Module  Name :  GASABS 

!  Module  Security  Classification:  UNCLASSIFIED 

!  PURPOSE:  Computes  sea-level  gaseous  absorption  from  temperature, 
i  absolute  humidity,  and  radio  frequency  using  CCIR 

i  Recommendation  676-1.  This  routine  is  good  for  frequencies 

!  less  than  57  GHz,  air  temperature  from  -20  to  40  degrees  C, 

!  and  absolute  humidity  from  0  to  50  g/m3. 

!  Version  Number:  1.0 

!  INPUTS : 

!  Argument  List:  NONE 
!  Common:  ABSHUM,  FREQ,  TAIR 

!  OUTPUTS: 

!  Argument  List:  NONE 
!  Common :  GASATT 

!  Modules  Used:  APM_MOD 

!  Calling  Routines:  APMINIT 

!  Routines  called:  NONE 

!  GLOSSARY: 

!  Input  Variables:  See  universal  glossary  for  common  variables. 

!  Output  Variables:  See  universal  glossary  for  common  variables. 

!  Local  Variables: 

!  FGHZ  =  Frequency  in  GHz. 

!  FGHZ 2  =  Square  of  frequency  in  GHz. 

!  GAMMAO  =  oxygen  absorption  in  dB/km. 

!  GAMMAW  =  water  vapor  absorption  in  dB/km. 

SUBROUTINE  gasabs 

use  apm_mod 
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fghz  =  freq  /  1.0E3 
fghz2  =  fghz  *  fghz 

!  Compute  oxygen  absorption  for  15  degrees  C  air  temperature. 

tl  =  6.09  /  (f ghz2  +  0.227) 

t2  =  4.81  /  ((fghz  -  57.0)  **  2  +  1.50) 

gammao  *  (7.19E-3  +  tl  +  t2)  *  fghz2  *  1.0E-3 

!  Correct  oxygen  absorption  for  actual  air  temperature. 

gammao  =  (1.0  -  0.01  *  (Tair  -  15.0))  *  gammao 

!  Compute  water  vapor  absorption. 

tl  =  3.6  /  ((fghz  -  22.2)  **  2  +  8.5) 

t2  -  10.6  /  ((fghz  -  183.3)  **  2  +  9.0) 

t3  -  8.9  /  {(fghz  -  325.4)  **  2  +  26.3) 

gammaw  =  (0.05  +  0.0021  *  abshum  +  tl  +  t2  +  t3)  *  & 

fghz2  *  abshum  *  1.0E-4 

!  Compute  total  specific  absorption  for  sea-level  air  in  dB/km 
!  multiplied  by  conversion  factor  for  computing  loss  in  cB. 

gasatt  =  (gammao  +  gammaw)  *  l.e-2 

END  subroutine  gasabs 


A.1.10  Subroutine  GETALN 


**************************  SUBROUTINE  GETALN  ****************************** 
Module  Name :  GETALN 

Module  Security  Classification:  UNCLASSIFIED 

Purpose:  Computes  the  impedance  term  ALPHAV  and  the  complex  index  of 

refraction  for  finite  conductivity  and  vertical  polarization 
calculations.  These  formulas  follow  Kuttler's  method.  (Ref. 
Nuttier' s  viewgraphs  from  PE  modeler's  workshop). 

Version  Number:  1.0 

INPUTS: 

Argument  List :  NONE 

Common:  DELZ,  DR,  FKO,  IG,  IPOL,  N 

Public:  CN2 ( ) 

OUTPUTS : 

Argument  List:  NONE 

Common:  ALPHAV,  C1X,  C2X,  RK,  RT 

Public:  ROOT  ( )  ,  ROOTMO 

Modules  Used:  APM_MOD 

Calling  Routines:  PESTEP,  XYINIT 

Routines  called: 

APM  Specific:  NONE 

Intrinsic:  CEXP,  CLOG,  CMPLX,  CSQRT 
GLOSSARY: 

Input  Variables:  See  universal  glossary  for  common  variables. 
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j  Output  Variables:  See  universal  glossary  for  common  variables. 

I  Local  Variables: 

i  AD  =  Portion  of  exponent  term  for  calculation  of  C1X  and  C2X. 

!  RNG  =  complex  refractive  index. 

!  SI  =  Imaginary  term  in  the  formula  for  the  square  of  the  complex 

)  index  of  refraction. 

subroutine  getaln 

use  apm_mod 

complex  ad,  sqrad,  r2,  a,  rootln,  qi,  r2n,  rng 

data  qi  /  (0.,  1.)  /  ! Imaginary  number  i  -  sqrt(-l) 

rng  -  csqrt (  cn2 (ig)  ) 

alphav  =  qi  *  fko  /  rng  l  V  pol 

if (  ipol  .eq.  0  )  alphav  =  qi  *  fko  *  rng  !  H  pol 

ad  =  alphav  *  delz 

sqrad  =  csqrt (  1.  +  ad**2  ) 

if (  ipol  .eq.  0  )  then 
rt  =  -sqrad  -  ad 
else 

rt  =  sqrad  -  ad 
end  if 

root ( 0 )  =  cmplx (  1 . ,  0 .  ) 
rootm(O)  -  root(0) 
root{l)  =  rt 
rootm(l)  -  -rt 
do  i  =  2,  n 

j  =  i’1 

root(i)  =  root(j)  *  rt 
rootm(i)  =  rootm(j)  *  (-rt) 
end  do 

r2  =  root  (2) 
r2n  =  root (n) **2 

rk  =  2. *(1.  -  r2)  /  (1.  +  r2)  /  (1-  -  r2n) 

a  =  dr  *  qi  /  fko2 

rootln  -  clog(  rt  ) 

ad  =  (rootln  /  delz)**2 

clx  =  cexp {  a  *  ad  ) 

ad  =  (  (rootln  -  qi  *  pi  )  /  delz  ) **2 
c2x  =  cexp (  a  *  ad  ) 

end  subroutine  getaln 


A.1.11  Subroutine  GETMODE 

i **************************  SUBROUTINE  GETMODE  ********************** 

!  Module  Name:  GETMODE 

!  Module  Security  Classification:  UNCLASSIFIED 

j  purpose:  This  routine  will  determine  what  execution  mode  APM  will  run  in, 
I  based  on  environmental  inputs. 

!  Version  Number:  1.0 

!  INPUTS: 

!  Argument  List:  NONE 
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Common:  ANTHT,  FTER,  ITPA,  RMAX 
Public:  SLP { ) ,  TX ( ) 

Data:  RTST 

OUTPUTS: 

Argument  List:  RFLAT 
Common:  IHYBRID 

Modules  Used:  APM_MOD 

Calling  Routines:  APMINIT 

Routines  Called: 

APM  Specific:  NONE 
Intrinsic:  ABS 

GLOSSARY:  See  universal  glossary  for  common  and  public  variables. 
Input  Variables:  NONE 
Output  Variables: 

RFLAT  =  Maximum  range  in  meters  at  which  the  terrain  profile 
remains  flat  from  the  source . 

Local  Variables: 

SLPJTOL  =  Terrain  slope  "fudge"  factor. 


subroutine  getmode ( 

use  apm_mod 

data  slptol  /  l.e-3 

rflat  =  rmax 

if (  antht  .gt.  100. 

ihybrid  =  0 
else 

ihybrid  =  1 


RFLAT  ) 

/ 

)  then 

!  Use  pure  PE  model 
!  Use  full  hybrid  mode 


!  Test  to  see  if  the  first  2500  m.  of  terrain  profile  is  flat. 
!  If  not,  then  use  partial  hybrid  mode  (PE  +  XO) . 


if(  fter  )  then 
i  =  1 

do  while ( (  abs (  slp(i)  )  .le.  slptol  )  .and.  (  i  .It.  itpa  )) 
i  =  i  +  1 
end  do 

rflat  =  tx(i) 

if (  rflat  .le.  rtst+.OOl  )  then 
ihybrid  =  2 
rflat  -  rmax 
end  if 
end  if 
end  if 


end  subroutine  getmode 


A.1.12  Subroutine  GETTHMAX 


***************************  SUBROUTINE  GETTHMAX  *********************** 
Module  Name:  GETTHMAX 

Module  Security  Classification:  UNCLASSIFIED 
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Purpose:  This  first  part  of  this  routine  performs  an  iterative  ray 

trace  such  that,  upon  reflection,  the  ray  clears  the  highest 
terrain  peak  along  its  path  by  20%.  Heights  and  angles  of 
this  ray  are  stored  at  each  output  range.  The  2nd  part  of  this 
routine  determines  the  minimum  PE  propagation  angle 
necessary  to  meet  the  following  criteria  when  using  the  full 
hybrid  mode  (i.e, .  IHYBRID-1) :  1)  Top  of  the  PE 
region  must  contain  ALL  trapping  layers  for  all  refractivity 
profiles,  2)  top  of  PE  region  must  be  at  least  20%  higher  than 
highest  peak  along  terrain  profile,  3)  minimum  PE  propagation 
angle  must  be  at  least  as  large  as  PSILIM. 

Version  Number:  1.0 

INPUTS: 

Argument  List:  ALFLIM,  HTERMAX,  HTEST,  RFLAT,  ZTEST 

Common:  ANTREF,  FREQ,  FTER,  HTLIM,  I HYBRID,  IPOL,  ISTART,  ITPA, 

LNMIN,  NROUT,  RMAX,  WL,  ZTOL 
Data:  RADC 
Parameter:  IRTEMP 

Public:  GR(),  RNGOUT ( )  ,  SLP(),  TX { ) ,  TY ( ) ,  ZRT ( ) 

OUTPUTS: 

Argument  List:  THETAMAX 

Common:  ALAUNCH,  HTEMP ( ) ,  IAP,  PSILIM,  RAYA ( ) ,  RPEST,  RTEMP ( ) , 

THETA75,  ZMAX 
Public:  HLIMO 

Modules  Used:  APM_MOD 

Calling  Routines:  APMINIT 

Routines  Called: 

APM  Specific:  F FT PAR 

Intrinsic:  ABS,  AMAXO,  AMAX1,  AMINO,  AMIN1,  EXP 
GLOSSARY:  See  universal  glossary  for  common  and  data  variables. 

Input  Variables : 

ALFLIM  =  Elevation  angle  of  RO  limiting  ray  in  radians.  Used  to 
initialize  launch  angle  in  GETTHMAX  routine. 

HTERMAX  =  Maximum  terrain  height  along  profile  path  in  meters. 
HTEST  =  Minimum  height  in  meters  at  which  all  trapping 

refractivity  features  are  below  {includes  some  slop) . 

RFLAT  =  Maximum  range  in  meters  at  which  the  terrain  profile 
remains  flat  from  the  source. 

ZTEST  =  Height  in  PE  region  that  must  be  reached  for  hybrid  model . 
Output  Variables: 

THETAMAX  =  Maximum  propagation  angle  used  in  the  PE  model. 

Local  Variables: 

AO  *  Angle  at  start  of  trace  in  radians. 

Al  -  Angle  at  end  of  trace  in  radians. 

AMLIM  =  Minimum  PE  angle  limit,  i.e.,  THETAMAX  must  be  at  least 
this  value. 

AMXCUR  =  Maximum  local  angle  along  the  traced  ray  up  to  ZLIM  (with 
minimum  limit  AMLIM) . 

ATEMP  =  Temporary  THETAMAX,  i.e.,  ATEMP  =  AMXCUR/. 75 
Bl-3  ~  Coefficients  of  polynomial  to  determine  AMLIM. 

GRD  =  Gradient  of  current  refractivity  layer  being  traced  through. 
HO  =  Height  at  start  of  trace  in  meters. 

HI  =  Height  at  end  of  trace  in  meters. 

I QUIT  «  Integer  flag  indicating  to  quit  (IQUIT^l)  tracing  of 
current  ray  and  begin  again  with  a  new  launch  angle. 

IRAY  -  Integer  flag  to  continue  raytracing  (IRAY  =0)  or  to  stop 
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(IRAY  -  1) . 

JL  =  Index  for  refractivity  profile  -  current  layer  being  traced 
through. 

KT  =  Counter  index  for  terrain  profile  arrays  TX ( )  and  TY ( ) . 

RO  =  Range  at  start  of  trace  in  meters. 

R1  =  Range  at  end  of  trace  in  meters. 

SLOPE  =  Slope  of  current  terrain  segment. 

Tl-3  =  Constants  used  in  polynomial  to  determine  AMLIM. 

TOL  =  Iterative  height  tolerance  to  test  if  appropriate  combination 
of  THETAMAX,  FFT  size,  and  ZMAX  has  been  reached  to  meet 
all  criteria. 

YN  =  Height  of  terrain  at  current  range  for  traced  ray. 

YNT  =  Height  of  terrain  at  source. 

ZLIMT  =  Maximum  height  to  trace  to  (includes  some  slop) . 


subroutine  getthmax(  htest,  htermax,  rflat,  ztest,  alflim,  THETAMAX  ) 


use  apmjmod 


data  tl,  t2 ,  t3  /  248.4,  2867.,  2495.  / 
data  bl,  b2,  b3  /  4.331,  1.420,  .4091  / 
data  aoff  /  .37541  /  !  small 


angular  offset 


!  Define  in  line  ray  trace  functions: 


radal (  a,  b  )  =  a**2  +2.  *  grd  *  b 
rp(  a,  b  )  =  a  +  b  /  grd 
ap(a,  b  )  -  a  +  b  *  grd 

hp(  a,  b,  c  )  =  a  +  (  b**2  -  c**2  )  /  2.  /  grd 


!a=a0,  b=hl-h0 
! a=r0 ,  b=al-a0 
! a=a0 ,  b=rl-r0 
!a=h0,  b=al,  c=a0 


!  Determine  minimum  PE  angle  limit,  AMLIM. 


fl  =  -f  req  /  tl 
f 2  =  -f  req  /  t2 
f 3  -  -f  req  /  t3 


amlim  =  aoff  +  bl  *  exp(fl)  +  b2  *  exp(f2)  +  b3  *  exp(f3) 
amlim  -  aminl  (  4.,  amlim  ) 
amlim  =  amlim  *  radc 
ami  =  0 . 

if (  ipol  .eq.  1  )  ami  =  2.  *  amlim 
if ( (fter)  .and.  (  ihybrid  .eq.  1  ))  then 
if (  f req  . le .  2000.  )  ami  =  1.5  *  amlim 

if (  f req  .le.  1500.  )  ami  =  2.  *  amlim 

if (  freq  .le.  1000.  )  ami  =  2.5  *  amlim 

end  if 

amlim  -  amaxl  {  amlim,  ami  ) 


alaunch  =  alflim 

if (  ihybrid  .eq.  1  )  alaunch  *  -alaunch 

zlimt  =  htlim  -  l.e-3 

iray  =  0 

yn  =  0 . 

ynt  =  0. 

if  (  (  ihybrid  .eq.  1  )  .and.  (  abs(tyd))  .gt.  l.e-3  ))  ynt  =  ty(l) 
dr temp  =  rmax  /  float (  irtemp  ) 

!  Begin  iterative  ray  trace  to  determine  the  launch  angle,  and  subsequently 
!  THETAMAX, 


do  while  (  iray  .eq.  0  ) 
aO  =  alaunch 
rO  =  0. 
hO  =  antref 
jl  =  istart 
kt  =  1 

slope  =  slp(kt) 
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iquit  =  0 
ro  =  0. 

Begin  tracing  ray  to  each  1/IRTEMP  range, 
do  i  -  1,  irtemp 
ro  =  ro  +  drtemp 
do  while (  rO  .It.  ro  ) 
rl  =  ro 
grd  =  gr(jl) 

if  (  aO  .It.  0.  )  grd  =  gr(jl-l) 
al  =  ap (  aO,  rl-rO  ) 

if  (  sign (1 . , aO)  .ne.  sign(l.,al)  )  then 
al  =  0. 

rl  =  rp{  rO,  al-aO  ) 
end  if 

hi  -  hp (  hO,  al,  aO  ) 

if ( (  al  .ge.  0.  )  .and.  (  hi  .ge.  zrt ( jl+1) -1 . e-3  ))  then 
hi  =  zrt(jl+l) 
rad  =  radal (  aO,  hl-hO  ) 
al  =  sqrt {  rad  ) 
rl  =  rp(  rO,  al-aO  ) 
ji  =  ji  +  i 

hi  -  aminl (  htlim,  zrt(jl)  ) 
elseif (  al  .le.  0.  )  then 

if (  hi  .le.  ynt+l.e-3  )  then 
hi  =  ynt 

rad  =  radal (  aO,  hl-hO  ) 
al  =  -sqrt (  rad  ) 
rl  =  rp(  rO,  al-aO  ) 
end  if 

if (  hi  .le.  zrt ( j 1-1) +1 . e-3  )  then 
hi  =  zrt ( j 1—1) 
rad  =  radal (  aO,  hl-hO  ) 
al  -  -sqrt (  rad  ) 
rl  =  rp(  rO,  al-aO  ) 
jl  =  amaxO (  0,  jl  -  1  ) 
end  if 
end  if 

The  ray  has  hit  surface  and  is  reflected. 

if (  hi  .It.  ynt+l.e-3  )  then 
al  =  -al 
psiliin  =  al 
rpest  =  rl 

if (  rl  .gt.  rflat  )  iquit  =  1 
end  if 

hO  =  hi 
rO  =  rl 
aO  =  al 

if(  iquit  .eq.  1  )  exit 
end  do 


Check  to  see  that  current  height  of  ray  is  at  least  20%  higher  than 
current  terrain  height. 

if (  fter  )  then 

do  while ( (rO  .gt.  tx(kt+l))  .and.  (kt  .It.  itpa) ) 
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kt  =  kt  +  1 
slope  =  slp(kt) 
end  do 

yn  =  1.2  *  (ty (kt)  +  slope  *  (  rO  -  tx(kt)  )) 
end  if 

raya(i)  =  aO 
htemp(i)  ~  hO 
rtemp(i)  =  rO 

if(  ihybrid  .eq.  1  )  then 

if ( (  hO  .It.  yn  )  .and.  (rO  .gt.  rflat) )  iquit  =  1 
else 

if(  hO  .It.  yn  )  iquit  =  1 
end  if 

if (  hO  .ge.  zlimt  )  exit 
if  (  iquit  .eq.  1  )  exit 

end  do 

!  If  HO  is  less  than  current  terrain  height  then  increase  (steepen)  angle 
!  and  perform  ray  trace  again.  Angle  is  initially  downgoing  for  IHYBRID=1 
!  and  upgoing  otherwise. 

if (  iquit  .eq.  1  )  then 

if  (  ihybrid  .eq.  1  )  then 
alaunch  =  alaunch  -  l.e-3 
else 

alaunch  =  alaunch  +  l.e-3 
end  if 
else 

•  If  ZLIM  is  reached  with  no  problems,  then  set  initial  launch  angle  - 
!  ray  has  been  found  with  all  heights,  ranges,  and  angles  stored.  Set  flag 
1  to  quit. 

iray  =  1 
ihmax  =  i 
end  if 
end  do 

do  i  =  ihmax,  irtemp 
htemp(i)  =  hO 
raya(i)  =  aO 
rtemp(i)  =  max 
end  do 

ihmax  =  aminO (  ihmax,  irtemp  ) 

!  Determine  at  what  index  the  local  ray  angles  become  positive, 

!  i.e.,  after  reflection. 

j  =  1 

do  while (  raya(j)  .It.  0.  ) 

j  =  j  +  1 

end  do 
lap  =  j 

!  Now  determine  THETAMAX  for  PE  region  based  on  local  angles  along  ray. 

iok  =  0 
iflag  =  0 
zlim  =  0. 
amxcur  -  0. 

do  while (  iok  .eq.  0  ) 
j  =  iap 

zt  -  ztest  -  l.e-3 
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do  j  =  iap,  ihmax 

if {  hterap { j )  .gt.  zt  )  exit 
end  do 

ist  =  aminO (  j,  ihmax  ) 

amxcur  =  abs {  raya(l)  ) 
do  i  =  2,  ist 

if (  abs (  raya (i)  )  .gt.  amxcur  )  amxcur  =  raya(i) 
end  do 

amxcur  =  amaxl  (  amlim,  amxcur  ) 
atemp  =  amxcur  /  .75 

if {  ihybrid  .eq.  2  )  ztest  =  amaxl (  antref,  htest,  1.2*htermax,  1000.  ) 

!  Compute  new  ZTEST,  ZMAX,  DELZ,  LN,  N. 

call  f ftpar (  Inmin,  wl,  atemp,  iflag,  ZTEST,  ZMAX,  DELZ,  LN,  N  ) 

if(  iflag  .eq.  0  )  then 
iflag  =  1 

if (  ihybrid  .ne.  1  )  iok  =  1 
elseif  (  (  iflag  .eq.  1  )  .and.  (  ihybrid  .ne.  2))  then 
tol  «  abs (  ztest  -  zlim  )  /  ztest 
if (  tol  .le.  ztol  )  iok  =  1 
end  if 
zlim  -  ztest 

end  do 

theta75  =  amxcur 
thetamax  =  atemp 

IBefore  exiting,  fill  in  array  HLIM ( ) . 

if (  ihybrid  .eq.  1  )  then 
a0  =  psilim 
rO  =  rpest 
hO  =  0. 
jl  =  0 
else 

aO  =  alaunch 
rO  =  0. 
hO  =  antref 
jl  =  istart 
end  if 

do  i  =  1,  nrout 

if (  rngout(i)  .It.  rpest  )  then 
hlim(i)  =  0. 
else 

ro  =  rngout(i) 

do  while ((  rO  .It.  ro  )  .and.  (  hO  .le.  htlim  )) 
rl  -  ro 
grd  =  gr(jl) 

if  (  aO  .It.  0.  )  grd  =  gr(jl-l) 
al  =  ap (  aO,  rl-rO  ) 

if (  sign (1 . , aO)  .ne.  sign(l.,al)  )  then 
al  =  0 . 

rl  =  rp (  rO,  al-aO  ) 
end  if 

hi  =  hp (  hO,  al,  aO  ) 
if (  hi  .ge.  zrt ( j 1+1 ) -1 . e-3  )  then 
hi  =  zrt(jl+l) 
rad  =  radal (  aO,  hl-hO  ) 
al  =  sqrt (  rad  ) 
rl  -  rp (  rO,  al-aO  ) 

jl  =  jl  +  1 
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end  if 
hO  =  hi 
rO  =  rl 
aO  =  al 
end  do 

hlim(i)  =  hO 
end  if 
end  do 

end  subroutine  getthmax 


A.1-13  Subroutine  INTPROF 


**************************  SUBROUTINE  INTPROF  ****************************** 
Module  Name:  INTPROF 

Module  Security  Classification:  UNCLASSIFIED 

Purpose:  Performs  a  linear  interpolation  vertically  with  height  on  the 

refractivity  profile.  Stores  interpolated  profile  in  PROFINT(). 

Version  Number:  1.0 

INPUTS: 

Argument  List:  NONE 

Common:  CON,  N,  NLVL 

Public:  HREF ( ) ,  HT ( ) ,  REFREF ( ) 

OUTPUTS: 

Argument  List:  NONE 
Common:  NONE 
Public:  PROFINTO 

Modules  Used:  APM_MOD 

Calling  Routines:  APMINIT,  REFINTER 

Routines  Called:  NONE 

GLOSSARY: 

Input  Variables:  See  universal  glossary  for  common  variables. 

Output  Variables:  See  universal  glossary  for  common  variables. 

Local  Variables: 

HEIGHT  =  Height  to  interpolate  to. 

FRAC  =  Fractional  height  for  interpolation. 


SUBROUTINE  intprof 
use  apm_mod 

j  -  1 

k  -  0 

profint(O)  =  refref(O)  *  con 
DO  I  =  1,  N 

height  =  ht(i) 

do  while (  (  height  .gt.  href(j)  )  .and.  (  j  .It.  nlvl  )) 

3  =  j  +  1 


A-36 


con 


k  =  j  -  1 
end  do 

FRAC  =  (height  -  href(k))  /  (href(J)  -  href(k)) 
prof int (I)  =  (ref ref (k)  +  FRAC  *  (refref(J)  -  refref(k)))  * 
end  do 


END  subroutine  intprof 


A.1.14  Subroutine  PHASE1 


*****************************  SUBROUTINE  PHASE 1 


!  Module  Name:  PHASE1 

!  Module  Security  Classification:  UNCLASSIFIED 

f  purpose:  Initialize  free-space  propagator  array  FRSPO  using  wide-angle 
!  propagator. 

!  Version  Number:  1.0 

!  INPUTS: 

!  Argument  List:  NONE 

!  Common:  CNST,  DR,  FKO,  FNORM,  N,  N34 
!  Public:  FILTO 

!  OUTPUTS: 

!  Argument  List:  NONE 

!  Common:  NONE 

!  Public:  FRSPO 

!  Modules  Used:  APM__MOD 

!  Calling  Routines:  APMINIT 

!  Routines  Called: 

!  APM  Specific:  NONE 

!  Intrinsic:  AMIN1,  CMPLX,  COS,  FLOAT,  SIN,  SQRT 

!  GLOSSARY:  See  universal  glossary  for  common  variables. 

!  Input  Variables :  NONE 

!  Output  Variables :  NONE 

!  Local  Variables: 

!  ANG  -  Exponent  term: 

i  ANG  =  -i*dr*k* [1-sqrt (1- (p/k) **2) ]  where  k  is  the  free-space 

!  wavenumber,  p  is  the  transform  variable  (p=k*sin (theta) ) ,  and 

!  i  is  the  imaginary  number  (i-sqrt (-1) ) . 

SUBROUTINE  PHASE1 

use  apm_mod 

double  precision  cak 

drfk  =  dr  *  fko 
DO  1=0, N 

ak  =  float (i)  *  cnst 

aksq=ak  *  ak 

aksq  =  aminl (  1.,  aksq  ) 

cak  =  sqrt { 1 .  -  aksq) 

ang  -  drfk  *  (  l.dO  -  cak  ) 

ca  =  cos  (  ang  ) 
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sa  =  -sin(  ang  ) 

frsp(i)  =  fnorm  *  cmplx (  ca,  sa  ) 
end  do 

!  Filter  the  upper  1/4  of  the  propagator  arrays. 

do  i  =  n34,  n 

attn  =  filt(i-n34) 
frsp(i)  -  attn  *  frsp(i) 
end  do 

END  subroutine  phasel 


A.1.15  Subroutine  PH ASE2 


I  ***************************  SUBROUTINE  PHASE 2  ****************************** 
!  Module  Name:  PHASE2 

!  Module  Security  Classification:  UNCLASSIFIED 

!  Purpose:  Calculates  the  environmental  phase  term  for  a  given  profile,  then 
!  stores  in  array  ENVPR(). 

!  Version  Number:  1.0 

!  INPUTS: 

!  Argument  List:  NONE 

!  Common:  DR,  N,  N34 

!  Public :  FILT ( ) ,  PROFINT ( ) 

!  OUTPUTS: 

I  Argument  List:  NONE 

!  Common :  NONE 

!  Public:  ENVPR ( ) 

!  Calling  Routines:  APMINIT,  PESTEP 

i  Routines  called: 

!  APM  Specific:  NONE 
!  Intrinsic:  CMPLX,  COS,  SIN 

!  GLOSSARY: 

!  Input  Variables:  NONE 
!  Output  Variables:  NONE 
!  Local  Variables: 

!  ANG  =  Exponent  term:  ANG  =  i*dr*k*le-6*M { z)  where,  i  is  the 

!  imaginary  number  (i=sqrt (-1) ) ,  k  is  the  free-space  wavenumber, 

!  and  M(z)  is  the  modified  ref ractivity . 

SUBROUTINE  PHASE 2 

use  apm_mod 

do  i  =  0,  n 

ang  =  dr  *  profint(i) 
ca  =  cos (  ang  ) 
sa  =  sin(  ang  ) 
envpr(i)  =  cmplx (  ca,  sa  ) 
end  do 

!  Filter  upper  1/4  of  the  arrays. 
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do  i  =  n34,  n 

attn  =  filt(i-n34) 
envpr(i)  =  attn  *  envpr{i) 
end  do 

END  subroutine  phase2 


A.1.16  Subroutine  PROFREF 


I 


SUBROUTINE  PROFREF  ************************* 


!  Module  Name:  PROFREF 

!  Module  Security  Classification:  UNCLASSIFIED 

i  purpose:  This  subroutine  determines  the  refractivity  profile  with  respect 
i  to  the  reference  height  YREF  which,  depending  on  the  value  of 

i  I FLAG,  can  be  HMINTER  or  the  local  ground  height  above  HMINTER. 

!  Version  Number:  1-0 

!  INPUTS: 

!  Argument  List:  I  FLAG,  YREF 

!  Common:  IEXTRA,  LVLEP 

I  Public:  HTDUM  ( ) ,  REFDUM ( ) 

!  OUTPUTS: 

!  Argument  List:  NONE 

!  Common:  LVLEP,  NLVL 

!  Public:  HREF ( ) ,  HTDUM (),  REFDUM () ,  REFREF ( ) 

*  Modules  Used:  APM_MOD 

1  Calling  Routines:  REFINIT,  REFINTER 

!  Routines  Called: 

!  APM  Specific:  NONE 

i  Intrinsic:  ABS,INT 

!  GLOSSARY:  See  universal  glossary  for  common  variables. 

!  Input  Variables: 

i  I FLAG  =  0:  Profile  arrays  REFREF ()  and  HREF ( )  will  be  referenced  to 

!  height  HMINTER,  and  will  also  be  used  to  initialize 

!  REFDUM ()  and  HTDUM ( ) . 

!  =1:  Profile  arrays  REFREF ()  and  HREF ( )  will  be  referenced  to 

!  local  ground  height. 

i  YREF  =  Reference  height  in  meters  at  current  range. 

!  Output  Variables : NONE 
!  Local  Variables: 

!  FRAC  =  Fractional  height  used  for  interpolation 

!  IBMSL  =  Integer  flag  indicating  if  YREF  is  below  mean  sea  level  (msl) 

!  IBMSL  =  0  ->  YREF  not  below  msl 

!  IBMSL  =  1  ->  YREF  below  msl 

!  JS  =  Integer  index  indicating  at  what  index/level  in  array  HTDUM () 

!  YREF  is  located. 

!  RMU  =  Interpolated  M-unit  value  at  height  YREF. 

i  NEWL  =  New/adjusted  number  of  levels  to  be  stored  in  HREF ( )  and 

!  REFREF ( ) . 

subroutine  prof ref {  yref,  iflag  ) 
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use  apm_mod 
nlvl  =  lvlep 

href  =  0.  ’array 

ref ref  =  0.  ! array 

if (  abs(yref)  .  gt.  l.e-3  )  then 

ibmsl  =  0 
js  =  -1 

!  Check  to  see  if  reference  height  is  below  mean  sea  level. 

if {  yref  .It.  0.  )  then 
ibms 1=1 
js  =  0 

!  Get  refractivity  profile  level  at  which  the  height  of  the  ground  is  just 
!  above.  This  level  is  JS. 

else 

nlvlml  =  nlvl  -  1 
do  i  =  0,  nlvlml 

if ( (  yref  .le.  htdum(itl)  )  .and.  (  yref  .gt.  htdum(i)  ))  js  =  i 
end  do 
end  if 

I  Determine  the  refractivity  value  at  the  ground  and  fill  arrays  HREF ( )  and 
’  REFREF { )  with  refractivity  profile  where  height  0.  now  refers  to  the  ground 
!  reference, i . e . ,  either  local  ground  height  or  HMINTER. 

if { (  js  .gt.  -1  )  .or.  (  ibmsl  .eq.  1  ))  then 
jspl  =  js  +  1 

frac  =  (yref  -  htdum(js))  /  (htdum(jspl)  -  htdum(js)) 
rmu  =  refdum(js)  +  frac  *  (refdum ( j spl )  -  refdum(js)) 

if({iextra  .eq.  0)  .and.  (ibmsl  .eq.  1))  rmu  =  refdum(js)  +  frac  *  .118 

if(  int (  frac  )  .eq.  1  )  js  =  jspl 

newl  =  nlvl  -  js 

refref(0)  =  rmu 

href (0)  =  0. 

k  =  js  +  1 

do  jk  =  1,  newl 

refref(jk)  =  refdum(k) 
href(jk)  =  htdum(k)  -  yref 
k  =  k  +  1 
end  do 
nlvl  =  newl 

if (  iflag  .eq.  0  )  then 
lvlep  =  nlvl 

refdum  =  ref ref  ! array 

htdum  =  href  ’array 

end  if 
end  if 
else 

!  If  the  reference  height  is  0.  then  HREF ( )  and  REFREF ()  are  equal. 

do  i  =  0,  nlvl 

href(i)  =  htdum(i) 
refref(i)  =  refdum(i) 
end  do 
end  if 

end  subroutine  profref 
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A.1.17  Subroutine  REFINIT 


! 


*************************  SUBROUTINE  REFINIT 


!  Module  Name:  REFINIT 

!  Module  Security  Classification:  UNCLASSIFIED 

!  Purpose:  Initializes  refractivity  arrays  used  for  subsequent  PE  and  RO 
!  calculations. 

!  Version  Number:  1.0 


INPUTS: 

Argument  List:  NONE 

Common:  ANTREF,  HMINTER,  LERR12 ,  LVLP,  NPROF,  RMAX 
Public:  HMSL ( ,  )  ,  REFMSL(,),  RNGPROF ( ) 


!  OUTPUTS: 

1  Argument  List:  HTRAP,  HTHICK,  IERROR,  RMMIN,  RMMAX 
i  Common:  IS,  ISTART,  LEVELS,  LVLEP,  LVLP,  NLVL,  RV2 

!  Public:  HMSL  ( ,  )  ,  HTDUMO,  GR  ( )  ,  Q(),  REFDUM  ( )  ,  REFMSL  ( ,  )  ,  RM  ( )  ,  ZRT  { ) 

!  Modules  Used:  APM_MOD 
!  Calling  Routines:  APMINIT 
!  Routines  Called: 

I  APM  Specific:  PROFREF,  REMDUP 

!  Intrinsic:  ABS,  SIGN 

!  GLOSSARY:  See  universal  glossary  for  common  variables 
!  Input  Variables:  NONE 
[  Output  Variables : 

!  HTHICK  -  Thickness  in  meters  of  highest  trapping  layer  from  all 

i  refractivity  profiles. 

i  HTRAP  «  Height  of  highest  trapping  layer  in  meters  from  all 

!  refractivity  profiles. 

!  IERROR  =  -6  :  Last  range  in  terrain  profile  is  less  than  RMAX. 

j  (Will  only  return  this  error  if  error  flag  LERR6 

t  is  set  to  . TRUE . ) . 

i  =  -12  :  Range  of  last  refractivity  profile  entered  (for 

i  range  dependent  case)  is  less  than  RMAX.  (This  is 

i  returned  from  subroutine  REFINIT) .  Will  only 

t  return  this  error  if  error  flag  LERR12  is  set  to 

!  .TRUE.). 

I  s  -13  :  Height  of  first  level  in  any  user-specified  refrac- 

I  tivity  profile  is  greater  than  0.  First  height  must 

t  be  at  m.s.l.  (0.)  or  >0.  if  below  m.s.l. 

I  =  -14  :  Last  gradient  in  user-provided  refractivity  profile 

!  is  negative. 

j  RMMAX  =  Maximum  M-unit  value  (xlOe-6)  of  refractivity  profile  at 

!  range  0 . 

I  '  RMMIN  -  Minimum  M-unit  value  (xlOe-6)  of  refractivity  profile  at 
1  range  0 . 

!  Local  Variables: 

I  GRD  =  Gradient  at  current  height/ref ractivity  level. 

!  HLARGE  ■  Maximum  height  limit  for  last  level  in  height/ref ractivity 

!  profiles. 

!  ZHI  =  Height  at  next  higher  profile  point  in  meters. 

!  ZLO  =  Height  at  next  lower  profile  point  in  meters. 
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subroutine  refinit (  HTRAP,  HTHICK,  RMMIN,  RMMAX,  TERROR  ) 

use  apmjnod 

data  hlarge/  l.e6  / 

ierror  =  0 

!  Test  to  see  if  last  profile  entered  (  for  range  dependent  case  )  meets  or 
!  exceeds  RMAX,  otherwise,  return  error  (unless  error  trapping  is  turned  off  - 
!  LERR12  -  .FALSE. ) . 

if (  nprof  .gt.  1  )  then 

if ( (  rngprof (nprof )  .It.  rmax  )  .and.  (  lerrl2  ))  then 
ierror  =  -12 
return 
end  if 
end  if 

do  i  =  1, nprof 

!  Test  to  see  that  every  user-specified  profile  begins  with  0.  height  for 
!  1st  level  in  profile  (allow  for  <0.  height  if  below  m.s.l.). 

if  (  hmsl(0,i)  .gt.  0.  )  then 
ierror  =  -13 
return 
end  if 

hdif  =  0. 
lvlml  =  lvlp 
lvlm2  =  lvlp 

do  while (  hdif  .le.  l.e-6  ) 
lvlml  =  lvlml  -  1 
lvlm2  =  lvlml  -  1 

hdif  =  hmsl (lvlml, i)  -  hmsl (lvlm2, i) 
end  do 

grd  =  (refmsl (lvlml, i) -refmsl (lvlm2, i) )  /  hdif 

!  If  last  gradient  in  refractivity  profile  is  negative  then  return  error. 

if{  grd  .It.  0  )  then 
ierror  =  -14 
return 
end  if 

!  Add  extra  level  to  tabulated  profiles  with  extrapolated  gradient.  Test  on 
!  HDIF  greater  than  0  for  profiles  that  contain  multiple  height/M-unit  values 
!  that  are  equal.  LVLP  is  already  one  more  than  #  of  actual  levels  in  profiles. 

hmsl (lvlp,  i)  =  hlarge 

refmsl(lvlp,  i)  =  (hlarge -hmsl (lvlml, i) )  *  grd  +  refmsl  (  lvlml,  i  ) 
end  do 

is  =  1 

rv2=rngprof (is) 

do  i  =  0,  lvlp 

refdum(i)  =  refmsl (  i,  is  ) 
htdum(i)  =  hmsl (  i,  is  ) 
end  do 

lvlep  =  lvlp 

!  Remove  any  duplicate  levels  in  first  profile  and  adjust  HTDUM ( )  and 
!  REFDUM ( )  to  minimum  terrain  height. 
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call  remdup 

call  profref (  hminter,  0  ) 

t  NLVL  is  now  the  number  of  height/refractivity  levels  in  adjusted  HTDUM ( ) 
!  and  REFDUM ( )  . 

!  Find  height  and  thickness  of  highest  trapping  layer,  if  one  exists, 

!  relative  to  HMINTER. 

htrap  =  0. 
hthick  =  0 . 
do  i  =  1,  nprof 

do  j  =  0,  lvlp-1 

grd  =  refmsl (j+1, i)  -  refmsl(j,i) 
hpl  =  hmsl ( j+1, i)  -  hminter 

if ( (  grd  .It.  0.  )  .and.  (hpl  .gt.  htrap))  then 
htrap  =  hpl 

hpO  -  hmsl(j,i)  -  hminter 
hthick  =*  hpl  -  hpO 
end  if 
end  do 
end  do 

!  Build  Z  and  RM  arrays  for  RO  calculations  if  needed.  Add  level  for 
!  ANTHT,  if  needed. 

zrt (0)  *  htdum(O) 

rm(0)  =  l.e-6  *  refdum(O) 

i  =  0 

istart  =  0 

DO  j  =  1,  nlvl 
zhi  =  htdum(j) 
zlo  =  htdum(j-l) 
i  *  i  +  1 

IF  (ABS (zhi  -  antref)  .LT.  l.E-3)  istart  =  i 
IF  ((istart  ,EQ.  0)  .AND.  (zhi  .GT.  antref))  THEN 
zrt(i)  =  antref 
ipl  ®  i  +  1 
iml  =  i  -  1 
zrt (ipl)  =  zhi 
rm (ipl)  =  l.e-6  *  refdum(j) 

drmdz  =  (rm(ipl)  -  rm(iml) )  /  (zrt (ipl)  -  zrt (iml)) 
rm(i)  =  rm(iml)  +  drmdz  *  (antref  -  zrt  (iml)) 
istart  =  i 
i  =  i  +  1 
ELSE 

zrt(i)  =  zhi 

rm(i)  =  l.e-6  *  refdum(j) 

END  IF 
END  DO 

!  Highest  profile  point  exceeds  antenna  height.  Total  number  of 
I  points  in  z  array  reduced  by  1  since  highest  level  is  not  needed. 

levels  =  i  -  1 

!  Build  GR  and  Q  arrays  for  ray-optics  and  ray-tracing  routines. 

do  i  =  0,  levels 
ipl  =  i  +  1 
rmd  =  rm (ipl)  -  rm(i) 
grd  =  rmd  /  (zrt (ipl)  -  zrt(i)) 

if {  abs (  grd  )  .It.  l.e-8  )  grd  =  sign(  1.,  grd  )*l.e-8 
gr(i)  =  grd 
q(i)  -  2.  *  rmd 
end  do 
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!  Determine  minimum  RM  (l.E-6*M)  on  profile,  and  maximum  RM  at  or 
!  below  the  transmitter. 

rmmin  =  rm  { 0 ) 
rmmax  =  rmmin 
DO  i  =  1,  nlvl 

nnmin  =  aminl  (  rm(i),  rmmin  ) 

IF((rm(i)  .GT.  rmmax)  .AND.  (  i  .LE.  istart  ))  rmmax  =  rm(i) 
END  DO 

end  subroutine  refinit 


PURPOSE : 


METHOD 


SINFFT  replaces  the  real  array  X() 
by  its  finite  discrete  sine  transform 


The  algorithm  is  based  on  a  mixed  radix  (8-4-2)  real  vector 
fast  Fourier  synthesis  routine  published  by  Bergland: 

(  G.D.  Bergland,  'A  Radix-eight  Fast  Fourier  Transform 
Subroutine  for  Real-valued  Series, 1  IEEE  Transactions  on 
Audio  and  Electro-acoustics ' ,  vol.  AU-17,  pp.  138-144,  1969 

and  sine  and  cosine  transform  algorithms  for  real  series 
published  by  Cooley,  Lewis,  and  Welch: 

(J.W.  COOLEY,  P.A.W.  LEWIS  AND  P.D.  WELSH,  fThe  Fast  Fourier 
Transform  Algorithm:  Programming  Considerations  in  the 
Calculation  of  Sine,  Cosine  and  Laplace  Transforms*, 

J.  SOUND  VIB.,  vol.  12,  pp.  315-337,  1970  ). 


ARGUMENTS : 


—  INPUT  — 


transform  size  (  =  2**N  ) 


X  ()....  data  array  dimensioned  2**N  in  calling  program 

—  OUTPUT  — 

X  ()....  sine  transform 

TABLES:  array  required  size 

B  2**N 

JINDX  2**(N-1) 

COSTBL  2**(N-4) 

SINTBL  2**(N-4) 


Sub-programs  called: 


(radix  8  synthesis) 
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INTEGER* 4  N 

DIMENSION  X (0 : *) 

INTEGER* 4  NMAX2,  NMAX16,  NP,  NPD2,  NPD4 

real,  allocatable  ::  b(:),  sines (:) ,  costbl ( : ) ,  sintbl ( : ) 
integer*4,  allocatable  ::  jindx(:) 

SAVE  B,  COSTBL,  JINDX,  SINES,  SINTBL,  nmax2,  nmaxl6 
SAVE  NSAVE,  N4,  N8,  NP,  NPD2,  NPD4 ,  NPD16,  NPM1 

DOUBLE  PRECISION  ARG,  DT,  dpi 
DATA  NSAVE  /  0  / 

DATA  dpi  /  3 . 14 15 9265358 97 932D0  / 


+ 


IF ( (  N  .NE.  NSAVE  )  .and.  (  n  .gt.  0  ))  THEN 

NP  =  2**N 
nmax2  =  np  /  2 
nmaxl6  =  np  /  16 

if (  allocated  (  b  )  )  deallocate  (  b  ) 
allocate  (  b(np)  ) 
b  =  0. 

if (  allocated  (  jindx  )  )  deallocate  (  jindx  ) 

allocate  (  jindx (nmax2)  ) 
jindx  =  0 

if (  allocated  (  sines  )  )  deallocate  (  sines  ) 
allocate  (  sines (np)  ) 
sines  =  0. 

if (  allocated  (  costbl  )  )  deallocate  (  costbl  ) 
allocate  (  costbl (nmaxl6)  ) 
costbl  =  0. 

if (  allocated  (  sintbl  )  )  deallocate  (  sintbl  ) 

allocate  (  sintbl (nmaxl6)  ) 
sintbl  =  0. 

! compute  constants  and  construct  tables 

NSAVE  =  N 

N8  =  NSAVE  /  3 

N4  =  NSAVE  -  3  *  N8  -  1 

NPD2  =  NP  /  2 

NPD4  =  NP  /  4 

NPD16  =  NP  /  16 

NPM1  =  NP  -  1 

!  build  reciprical  sine  table 

DT  =  dpi  /  FLOAT  (  NP  ) 

DO  J  =  1,  NPM1 
ARG  =  DT  *  J 

SINES  (  J  )  -  (0.5D0  /  SIN  (  ARG  )  ) 
end  do 

! construct  bit  reversed  subscript  table 

J1  =  0 

DO  J  =  1,  NPD2  -  1 
J2  =  NPD2 

do  while (  I AND  (  Jl,  J2  )  .NE.  0  ) 

J1  =  IABS (  Jl  -  J2  ) 

J2  =  J2  /  2 
end  do 
Jl  =  Jl  +  J2 
JINDX  (  J  )  =  Jl 
end  do 
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! f orm  the  trig  tables  for  the  radix-8  passes 
! tables  are  stored  in  bit  reversed  order. 

J1  =  0 

DO  J  =  1,  NPD16  -  1 
J2  =  NPD16 

do  while  (  I AND  (  Jl,  J2  )  .NE.  0  ) 

J1  -  IABS (  Jl  -  J2  ) 

J2  =  J2  7  2 
end  do 

Jl  =  Jl  +  J2 

ARG  =  DT  *  FLOAT  (Jl) 

COSTBL  (  J  )  -  COS  (  ARG  ) 

SINTBL  (  J  )  =  -SIN  (  ARG  ) 

end  do 

elseif (  n  .eq.  -1  )  then 

!End  of  APM  run  -  deallocate  arrays  and  return  to  main  driver  program 


if (  allocated ( 
if (  allocated ( 
if (  allocated ( 
if(  allocated { 
if (  allocated ( 
nsave  =  0 
return 


b  )  )  deallocate (  b,  stat  =  ierror  ) 
sines  )  ) deallocate (  sines,  stat  =  ierror  ) 
costbl  )  ) deallocate {  costbl,  stat  =  ierror  ) 
sintbl  )  ) deallocate (  sintbl,  stat  =  ierror  ) 
jindx  )  ) deallocate (  jindx,  stat  =  ierror  ) 


ENDIF 


!***  form  the  input  Fourier  coefficients  *** 
!sine  transform 


B  (1)  ~-2.  *  X  (1) 

B  {  2  )  =  2.  *  X  (  NPM1  ) 

Jl  =  0 

DO  J  =  3,  NPM1 ,  2 
Jl  =  Jl  +  1 
J2  =  JINDX  (  Jl  ) 

B  (  J  )  =X  (  J2  -  1  )  -  X  {  J2  +  1  ) 

B  (  J  +  1  )  =  X  (  NP-J2  ) 
end  do 


i 


*  * 

*  Begin  Fast  Fourier  Synthesis  * 

★  * 


IF  (  N8  .NE.  0  )  THEN 

radix-8  iterations 

INTT  =  1 
NT  =  NPD16 
DO  J  =  1,  N8 

Jl  -  1  +  INTT 

J2  =  Jl  +  INTT 
J3  =  J2  +  INTT 
J4  -  J3  +  INTT 
J5  =  J4  +  INTT 
J6  -  J5  +  INTT 
J7  =  J6  +  INTT 


CALL  R8SYN  ( INTT,  NT,  COSTBL,  SINTBL,  B{1),  B{J1),  B(J2),  & 
B(J3),  B(J4),  B(J5),  B(J6),  B(J7)  ) 
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I  ★  * 


NT  =  NT  /  8 
INTT  =  8  *  INTT 
end  do 

ENDIF 

radix-4  iteration 

IF  (  N4  .GT.  0  )  THEN 
J1  =  NPD4 
J2  =  2*NPD4 
J3  =  3*NPD4 
DO  J  =  1,  NPD4 

TO  =  B ( J)  +  B ( J  +  Jl) 

T1  =  B ( J)  -  B ( J  +  Jl) 

T2  =  2.  *  B ( J  +  J2) 

T3  =  2.  *  B ( J  +  J3) 

B ( J)  =  TO  +  T2 

B ( J  +  J2)  =  TO  -  T2 

B ( J  +  Jl)  =  T1  +  T3 

B ( J  +  J3)  =  T1  -  T3 

end  do 

ELSE  IF  (  N4  .EQ.  0  )  THEN 

radix-2  iteration 

K  =  NPD2 
DO  J  =  1,  NPD2 

K  =  K  +  1 

T  =  B  ( J)  +  B  (K) 

B  (K)  =  B  ( J)  -  B  (K) 

B  ( J)  =  T 
end  do 

ENDIF 

************************ 

*  * 

*  Form  Transform  * 

★  * 
************************ 


t  sine  transform 

Jl  -  NP 

DO  J  =  1,  NPM1 

X ( J)  =  . 25* ( {  B(J+1)  +  B(J1))  *  SINES ( J)  -  B(J+1)  +  B(J1)) 

Jl  *  Jl  -  1 
end  do 

END  subroutine  sinfft 

SUBROUTINE  R8SYN  (  INTT,  NT,  COSTBL,  SINTBL,  BO,  Bl,  B2,  B3,& 

B4 ,  B5,  B6,  B7  ) 

i ********************************************************************** 

\  PURPOSE:  Radix-8  synthesis  subroutine  used  by  mixed  radix  driver. 

i********************************************************************** 

DIMENSION  COSTBL (*),  SINTBL (*) 

DIMENSION  BO (*) ,  Bl(*),  B2(*),  B3(*),  B4(*),  B5(*),  B6(*),  B7(*) 

!  Ill  Local  variables  III 

DOUBLE  PRECISION  Cl,  C2,  C3,  C4,  C5,  C6,  C7 
DOUBLE  PRECISION  SI,  S2,  S3,  S4,  S5,  S6,  S7 
DOUBLE  PRECISION  CPI4,  CPI8,  R2,  SPI8 


A-47 


SAVE 

CPI4 , 

CPI8,  R2,  SPI8 

DATA 

R2 

/ 

1 . 4 1421356237310D+0 

/, 

& 

CPI4 

/ 

0.70710678118655D+0 

/, 

& 

CPI8 

/ 

0.92387 9 53 251129 D+0 

/, 

& 

SPI8 

/ 

0 . 3 8268 34 32 3 650 9D+0 

/ 

■+ 


JT  =  0 
JL  =  2 
JR  =  2 
JI  =  3 

INT8  =  8  *  INTT 
DO  K  =  1,  INTT 


TO  = 

BO  (K) 

+ 

B1(K) 

T1  = 

BO  (K) 

- 

B1(K) 

T2  « 

B2  (K) 

+ 

B2  (K) 

T3  = 

B3(K) 

+ 

B3(K) 

T4  = 

B4  (K) 

+ 

B6(K) 

T5  = 

B4  (K) 

B6(K) 

T6  = 

B7  (K) 

- 

B5(K) 

T7  = 

B7  (K) 

+ 

B5  (K) 

T8  = 

R2  * 

(T7 

-  T5) 

T5  = 

R2  * 

(T7 

+  T5) 

TTO  = 

TO  + 

T2 

T2  = 

TO  - 

T2 

TTl  « 

T1  + 

T3 

T3  = 

T1  - 

T3 

T4  = 

T4  + 

T4 

T6  = 

T6  + 

T6 

BO  (K) 

=  TTO  4* 

T4 

B4  (K) 

=  TTO  - 

T4 

B1(K) 

®  TTl  + 

T5 

B5(K) 

-  TTl  - 

T5 

B2(K) 

=  T2 

+ 

T6 

B6(K) 

=  T2 

- 

T6 

B3(K) 

=  T3 

+ 

T8 

B7(K) 

=  T3 

- 

T8 

end  do 

IF  {  NT  .EQ.  0  )  RETURN 

KO  -  INT8  +  1 
KLAST  =  INT8  +  INTT 

DO  K  =  KO,  KLAST 


T1  = 

BO  (K) 

+ 

B6(K) 

T3  = 

BO  (K) 

- 

B6  (K) 

T2  = 

B7  (K) 

- 

B1  (K) 

T4  = 

B7  (K) 

+ 

B1(K) 

T5  - 

B2  (K) 

+ 

B4  (K) 

T7  - 

B2  (K) 

- 

B4  (K) 

T6  * 

B5(K) 

- 

B3(K) 

T8  = 

B5  (K) 

+ 

B3(K) 

BOCK) 

=  (T1 

t-  T5)  +  (T1  +  T5) 

B4  (K) 

=  (T2 

)-  T6)  +  (T2  +  T6) 

T5 

=  T1 

- 

T5 

T6 

=  T2 

- 

T6 

B2  (K) 

=  R2 

* 

(T6  +  T5) 

B6  (K) 

-  R2 

* 

(T6  -  T5) 

T1 

=  T3 

* 

CPI8  +  T4  *  SPI8 

T2 

=  T4 

* 

CPI8  -  T3  *  SPI8 
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T3  =  T8  *  CPI8  -  T7  *  SPI8 
T4  =  -  T7  *  CPI8  -  T8  *  SPI8 

B1  (K)  =  (T1  +  T3)  +  (T1  +  T3 ) 
B5(K)  =  (T2  +  T4 )  +  (T2  +  T4) 

T3  =  T1  -  T3 

T4  =  T2  -  T4 

B3 (K)  =  R2  *  (T4  +  T3) 

B7 (K)  =  R2  *  (T4  -  T3) 

end  do 


DO  JT 

= 

i. 

m 

’-1 

Cl 

= 

COSTBL(JT) 

SI 

= 

SINTBL(JT) 

C2 

= 

Cl 

* 

Cl 

- 

SI 

* 

si 

S2 

= 

Cl 

* 

SI 

+ 

Cl 

* 

SI 

C3 

Cl 

* 

C2 

- 

SI 

* 

S2 

S3 

= 

C2 

* 

SI 

+ 

S2 

* 

Cl 

C4 

C2 

★ 

C2 

- 

S2 

* 

S2 

S4 

= 

C2 

* 

S2 

+ 

C2 

* 

S2 

C5 

= 

C2 

* 

C3 

- 

S2 

* 

S3 

S5 

= 

C3 

★ 

S2 

+ 

S3 

* 

C2 

C6 

= 

C3 

★ 

C3 

- 

S3 

★ 

S3 

S6 

= 

C3 

* 

S3 

+ 

C3 

* 

S3 

C7 

C3 

* 

C4 

- 

S3 

* 

S4 

S7 

* 

C4 

★ 

S3 

+ 

S4 

★ 

C3 

K 

= 

JI 

* 

INT8 

JO 

- 

JR 

★ 

INT8 

+  ; 

1 

JLAST  = 

JC 

)  + 

INTT 

- 

1 

DO 

J 

=  , 

JO, 

JLAST 

K  =  K  +  1 

TRO  =  B0(J)  +  B6(K) 

TR1  =  BO ( J)  -  B6(K) 

TIO  =  B7(K)  -  B1(J) 

Til  =  B7(K)  +  B1(J) 

TR2  =  B4(K)  +  B2(J) 

TI3  =  B4(K)  -  B2(J) 

TI2  =  B5(K)  -  B3(J) 

TR3  =  B5(K)  +  B3(J) 

TR4  =  B4(J)  +  B2 (K) 

TO  =  B4(J)  -  B2(K) 

TI4  =  B3(K)  -  B5(J) 

T1  =  B3(K)  +  B5(J) 

TR5  =  CPI 4  *  (T1  +  TO) 

TI5  =  CPI 4  *  (T1  -  TO) 

TR6  =  B6(J)  +  BO (K) 

TO  =  B6(J)  -  BO (K) 

TI6  =  B1(K)  -  B7(J) 

T1  =  B1(K)  +  B7(J) 

TR7  =  -  CPI4  *  (TO  -  Tl) 

TI7  =  -  CPI4  *  (TO  +  Tl) 

TO  =  TRO  +  TR2 

TR2  =  TRO  -  TR2 

Tl  =  TIO  +  TI2 

TI2  =  TIO  -  TI2 

T2  =  TR1  +  TR3 

TR3  =  TR1  -  TR3 

T3  =  Til  +  TI3 

TI3  =  Til  -  TI3 

T5  =  TI4  +  TI6 

TTR6  =  TI4  -  TI6 

TI6  =  TR6  -  TR4 

T4  =  TR4  +  TR6 

T7  =  TI5  +  TI7 

TTR7  =  TI5  -  TI7 
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TI7 

= 

TR7 

- 

TR5 

T6 

=  ' 

TR5 

+ 

TR7 

BO  ( J) 

TO 

+ 

T4 

BO  (K) 

= 

T1 

+ 

T5 

B4  (J) 

= 

C4 

* 

(TO 

-  T4  ) 

- 

S4 

* 

(T1 

-  T5) 

B4  (K) 

= 

C4 

★ 

(T1 

-  T5) 

+ 

S4 

* 

(TO 

-  T4 ) 

B1  ( J) 

Cl 

* 

(T2 

+  T6) 

- 

SI 

* 

(T3 

+  T7 ) 

B1(K) 

= 

Cl 

* 

(T3 

+  T7) 

+ 

SI 

* 

(T2 

+  T6) 

B5  ( J) 

= 

C5 

* 

(T2 

-  T6) 

- 

S5 

* 

(T3 

-  T7 ) 

B5  (K) 

= 

C5 

★ 

(T3 

-  T7 ) 

+ 

S5 

* 

(T2 

-  T6) 

B2  ( J) 

C2 

* 

(TR2 

+  TTR6) 

S2 

* 

(TI2 

+  TI6) 

B2  (K) 

= 

C2 

* 

(TI2 

+  TI6) 

+ 

S2 

★ 

(TR2 

+  TTR6) 

B6  ( J) 

= 

C6 

* 

(TR2 

-  TTR6) 

- 

S6 

* 

(TI2 

-  TI6) 

B6(K) 

= 

C6 

* 

(TI2 

-  TI6) 

+ 

S6 

* 

(TR2 

-  TTR6) 

B3(J) 

= 

C3 

* 

(TR3 

+  TTR7) 

- 

S3 

* 

(TI3 

+  TI7) 

B3  (K) 

= 

C3 

* 

(TI3 

+  TI7 ) 

+ 

S3 

★ 

(TR3 

+  TTR7) 

B7  ( J) 

= 

C7 

* 

(TR3 

-  TTR7) 

- 

SI 

* 

(TI3 

-  TI7 ) 

B7  (K) 

= 

C7 

* 

(TI3 

-  TI7 ) 

+ 

SI 

* 

(TR3 

-  TTR7 ) 

end  do 

JR  =  JR  +  2 

JI  =  JI  -  2 

IF  (  JI  .GT.  JL)  cycle 

JI  =  JR  +  JR  “  1 

JL  =  JR 

end  do 

END  subroutine  r8syn 


A.1.19  Subroutine  TERINIT 


*************************  SUBROUTINE  TERINIT  ************************** 
Module  Name:  TERINIT 

Module  Security  Classification:  UNCLASSIFIED 

Purpose:  This  routine  initializes  the  arrays  TX ( )  and  TY ( )  and  all 
associated  terrain  variables. 

Version  Number:  1.0 

INPUTS : 

Argument  List:  NONE 

Common:  ANTHT ,  HMAX,  HMIN,  ITP,  ITPA,  RMAX 
Public:  TERX ( ) ,  TERY ( ) 

OUTPUTS: 

Argument  List:  ANGU,  HTERMAX,  I ERROR,  RFIX 
Common:  ANTREF,  FTER,  HMINTER,  HMREF,  HTLIM 
Public:  SLP ( ) ,  TX(),  TY ( ) 

Modules  Used:  APM_MOD 

Calling  Routines:  APMINIT 

Routines  Called: 

APM  Specific:  NONE 

Intrinsic:  AMAX1 ,  ATAN,  FLOAT,  NINT 
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!  GLOSSARY:  See  universal  glossary  for  common  variables  and  parameters. 

!  Input  Variables:  NONE 
!  Output  Variables: 

i  ANGU  =  Maximum  tangent  ray  angle  from  source  to  terrain  peak 

i  along  profile  path. 

!  HTERMAX  =  Maximum  terrain  height  along  profile  path  in  meters. 

!  I ERROR  =  Integer  value  that  is  returned  if  any  errors  exist  in  input 

!  data: 

1  -6  :  Last  range  in  terrain  profile  is  less  than  RMAX. 

i  (Will  only  return  this  error  if  error  flag  LERR6 

i  is  set  to  . TRUE. ) . 

i  -8  :  HMAX  is  less  than  maximum  height  of  terrain  profile, 

i  -9  :  Antenna  height  w.r.t.  msl  is  greater  than  maximum 

I  height  HMAX. 

i  -17  :  Range  points  of  terrain  profile  are  not  increasing, 

i  -18  :  First  range  point  is  not  0. 

!  RFIX  =  If  terrain  profile  points  are  equally  spaced,  this  is 

i  automatically  determined  and  range  spacing  is  set  to  RFIX, 

!  otherwise,  RFIX  =  0. 

!  Local  Variables: 

!  ANGLE  =  Tangent  angle  from  source  to  each  terrain  point  in  radians 

!  HDEG  =1/2  degree  in  radians. 

!  RDIF1  =  Difference  between  adjacent  terrain  point  elevations. 

I  RDIF2  =  Difference  between  next  adjacent  terrain  point  elevations. 

!  RDIFSUM  =  Running  sum  of  adjacent  terrain  point  differences. 

!  RFRAC  =  Maximum  fraction  between  adjacent  terrain  point  differences, 

i  SLOPE  =  Slope  of  terrain  segment. 

i  XI,  X2  =  Range  of  Ith  and  1+1  terrain  point,  respectively. 

!  Yl,  Y2  =  Height  of  Ith  and  1+1  terrain  point,  respectively, 

i  XDIF  =  Range  difference  between  adjacent  terrain  points. 

!  YDIF  —  Height  difference  between  adjacent  terrain  points. 

subroutine  terinit(  ANGU,  RFIX,  HTERMAX,  TERROR  ) 


use  apm_mod 

data  hdeg  /  8.726646e-3  /  !  1/2  degree 

fter  =  .false, 
ierror  =  0 
angu  =  0 . 
hminter  =  0. 
ant ref  =  antht 
htermax  =  0 . 

if  (  itp  .gt.  0  )  fter  =  .true. 

t  Check  that  all  terrain  range  points  are  increasing. 

if (  fter  )  then 
do  i  =  1,  itp-1 
ipl  =  i  +  1 

if (  terx(ipl)  .It.  terx(i)  )  then 
ierror  =  -17 
return 
end  if 
end  do 

!  Test  to  see  that  first  range  value  is  0. 

if  (  terx(l)  .gt.  0.  )  then 
ierror  =  -18 
return 
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end  if 


!  Determine  if  terrain  profile  points  are  spaced  at  fixed  increments. 

rdifl  =  terx (2) -terx (1) 
rfrac  =  0. 
rdifsum  =  rdifl 
do  i  =  2,  itp-1 

rdif2  =  amaxl (  l.e-3,  terx(i+l)  -  terx(i)  ) 
rdiff  =  rdif2  /  rdifl 
if (  rdiff  .gt.  rfrac  )  rfrac  =  rdiff 
rdifsum  =  rdifsum  +  rdif2 
rdifl  =  rdif2 
end  do 

!  If  it  is  determined  that  terrain  points  are  spaced  at  fixed  range 
!  increments,  then  set  this  increment  -  RFIX. 

rfix  =  0. 

if {  rfrac  .It.  1.05  )  rfix  =  nint {  rdifsum  /  float (itp-1)  ) 

!  Test  to  see  if  the  last  range  point  in  the  profile  meets  or  exceeds  RMAX. 
!  If  not  then  return  error  code. 

if (  terx(itp)  .It.  rmax  }  then 
if (  lerr6  )  then 
ierror  =  -6 
return 
end  if 
end  if 

!  Determine  minimum  height  of  terrain  profile. 

hminter  -  hmax 
do  i  -  1,  itp 
yi  =  tery(i) 

if (  yi  .It.  hminter  )  hminter  =  yi 
end  do 

!  Then  adjust  entire  terrain  profile  by  this  minimum  height  HMINTER 
!  such  that  this  is  the  new  0  reference.  Get  maximum  height-  of  terrain, 

!  store  adjusted  terrain  profile  in  arrays  TX ( )  and  TY ( ) . 


htermax  =  0. 
do  i  =  1,  itp 

tx(i)  =  terx(i) 

htermax  =  amaxl (  tery(i),  htermax  ) 
ty (i)  -  tery(i)  -  hminter 
end  do 

!  Add  extra  point  to  working  terrain  profile  arrays  TX()  and  TY ( ) . 

if {  tx(itp)  .It.  rmax  )  then 
tx(itpa)  =  rmax  *  1.1 
else 

tx(itpa)  =  tx(itp)  *  1.1 
end  if 

ty(itpa)  «  ty (itp) 

!  Return  error  code  if  HMAX  does  not  exceed  the  maximum  height  of  the 
!  terrain  profile. 

if (  htermax  .gt.  hmax  )  then 
ierror  =  -8 
return 
end  if 
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antref  =  antht  +  ty(l) 

do  i  =  1,  itpa-1 

yl  =  ty (i) 
xl  =  tx(i) 
ipl  =  i  +  1 
y2  =  ty (ipl) 
x2  =  tx(ipl) 

xdif  =  x2  -  xl 

ydif  =  y2  -  yl 

xdif  =  amaxl {  xdif,  l.e-5  ) 

slope  =  ydif  /  xdif 

slp(i)  =  slope 

!  Calculate  angle  made  from  each  terrain  point  height  to  antenna  height  above 
!  reference  (HMINTER) .  Determine  maximum  propagation  angle  so  that  direct  ray 
!  angle  will  clear  highest  peak. 

if (  yl  .gt.  antref  )  then 

angle  =  atan(  (yl-antref)  /  xl  )  ! angle  from  reflected  ray 

if (  angle  .gt.  angu  )  angu  =  angle 
end  if 

end  do 

!  Add  1/2  degree  to  the  angle  that  clears  the  highest  peak. 

angu  =  angu  +  hdeg 
end  if 

hmref  =  hmin  -  hminter 
htlim  »  hmax  -  hminter 

!  Return  error  if  antenna  height  is  greater  than  maximum  plot  height, 
if (  antref  .gt.  htlim  )  ierror  =  -9 
end  subroutine  terinit 


A.1.20  Subroutine  TROPOINIT 


*********************  SUBROUTINE  TROPOINIT  ************************ 
Module  Name :  TROPOINIT 

Module  Security  Classification:  UNCLASSIFIED 

Purpose:  This  routine  initializes  all  variables  and  arrays  need  for 
troposcatter  loss  computations. 

Version  Number  1.0 


INPUTS: 

Argument  List:  NONE 

Common:  AEK2,  ANTREF,  FREQ,  FTER,  ITPA,  NROUT ,  NZOUT 
Data:  AEK,  EK 

Public:  REFDUMO,  RNGOUT  ( )  ,  TX  ( )  ,  TY  ( )  ,  ZOUT() 
OUTPUTS: 

Argument  List:  NONE 
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!  Common:  JT1,  JT2,  KTR1 ,  THETA1S,  TLSTS,  R1T,  RF,  SNl 
!  Public:  AD1(),  ADIF ( ) ,  D2S(),  RDT ( ) ,  THl()r  THETAO ( ) ,  THETA2S ( ) 

!  Modules  Included:  APM_MOD 

!  Calling  Routines:  APMINIT 

!  Routines  Called: 

!  APM  Specific:  ANTPAT 
!  Intrinsic:  ALOGIO,  SQRT 

!  GLOSSARY: 

!  Input  Variables:  See  universal  glossary  for  common  variables. 

!  Output  Variables:  See  universal  glossary  for  common  variables. 

!  Local  Variables: 

!  ALD  =  Log  of  antenna  pattern  factor  for  ALPHAD  where  ALPHAD  here 

!  represents  lowest  direct  ray  angle  in  optical  region. 

!  Dl  -  Range  of  each  terrain  point  in  meters 

!  D1S  =  Tangent  rhnge  in  meters  for  source  height  over  smooth 

!  surface. 

!  D2  =  Tangent  range  in  meters  for  output  receiver  height  2 

!  over  smooth  surface. 

!  FACTR  =  Antenna  pattern  factor  for  angle  ALPHAD. 

!  HI  =  Height  of  each  terrain  point  in  meters 

!  QA  =  Term  for  determining  horizon  range. 

!  RDH0R1  =  Minimum  range  (in  meters)  at  which  diffraction  field 

!  solutions  are  applicable  and  intermediate  region  ends, 

!  for  smooth  surface  and  0  receiver  height. 

!  SNREF  =  Surface  ref ractivity . 

!  TST  -  Current  largest  tangent  angle  from  source, 

subroutine  tropoinit 
use  apnwnod 

Unitialize  surface  ref ractivity . 

snref  =  refdum{0) 

Unitialize  THETAO  angle. 

do  i  =  1,  nrout 

thetaO(i)  -  rngout(i)  /  aek 
end  do 

Unitialize  terms  used  in  calculation  of  troposcatter  loss. 

snl  =  .031  -  .00232  *  snref  +  5.67e-6  *  snref **2 
rf  *  .0419  *  freq 
rlt  =  rf  *  antref 

Unitialize  range  to  tangent  point,  D1S,  and  tangent  angle, 

1THETA1S,  for  source  over  smooth  surface. 

aid  =  0. 

dls  =  sqrt (  aek2  *  antref  ) 
thetals  =  -dls  /  aek 

!Get  antenna  pattern  loss  term,  ALD,  based  on  smooth  earth  tangent 
! angle . 

alphad  =  thetals  +  l.e-6 
call  antpat (  alphad,  FACTR  ) 

if (  factr  .ne.  0.  )  aid  =  20.  *  alogl0{  factr  ) 
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! Determine  the  minimum  range,  RDH0R1 ,  at  which  diffraction  field 
'solutions  are  applicable  and  intermediate  region  ends,  for  smooth 
! surface  and  0  receiver  height. 

qa  =  230200.  *  (  ek**2  /  freq  )**. 3333333 
rdhorl  =  sqrt (  aek2  *  antref  )  +  qa  'in  meters 

Unitialize  tangent  range  and  tangent  angle,  D2S  &  THETA2S,  (for  smooth 
! surface)  for  all  output  receiver  heights. 

do  i  =  0,  nzout 
z  =  zout(i) 
if (  z  .It.  0.  )  cycle 
d2  =  sqrt (  aek2  *  z  ) 
theta2s(i)  =  -d2  /  aek 
d2s  (i)  =  d2 

! Determine  minimum  range,  RDT ( ) ,  at  which  diffraction  field 
'solutions  are  applicable  and  intermediate  region  ends  (for  smooth 
'surface)  for  all  output  receiver  heights.  Initialize  ADIF ( )  for  use 
'in  TROPO  routine. 

rdt(i)  =  rdhorl  +  d2 
adif(i)  =  antref  -  z 
end  do 

'For  terrain,  determine  all  increasing  tangent  ranges  and  tangent  angles, 
! ADI ( )  &  TH1  ()  . 

if (  f ter  )  then 
aid  =  0. 

j  -  0 

tst  =  thetals 
do  i  =  2,  itpa 
hi  =  ty (i) 
dl  =  tx(i) 

angl  =  (hi  -  antref)  /  dl  -  dl  /  aek2 
if (  angl  .gt.  tst  )  then 

if ( (  dl  .gt.  dls  )  .and.  (  j  .eq.  0  ))  then 

j  *  j  +  1 

thl(j)  =  thetals 
adl(j)  =  dls 
end  if 
j  =  j  +  1 
thl (j)  =  angl 
adl(j)  -  dl 
tst  =  angl 
end  if 
end  do 

if (  j  .eq.  0  )  then 
j  =  j  + 1 
thl(j)  =  thetals 
adl ( j )  =  dls 
end  if 

ktrl  =  j 

Unitialize  array  index  counters. 

jtl  =  1 
j  t2  =  1 
end  if 

Unitialize  troposcatter  loss  term. 

tlsts  =54.9+30.  *  alogl0(  freq  )  -  .2  *  snref  -  aid 
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end  subroutine  tropoinit 


A.1.21  Subroutine  XYINIT 


,  *******************************  subroutine  xyinix  ************************* 

!  Module  Name:  XYINIT 

!  Module  Security  Classification:  UNCLASSIFIED 
!  Purpose:  Determines  the  initial  PE  starter  field. 

!  Version  Number:  1.0 
I  INPUTS: 

!  Argument  List:  NONE 

!  Common:  ANTHT,  DELP,  FKO,  N,  N34,  WL,  ZMAX 
!  Public:  FILT ( ) 

!  OUTPUTS: 

!  Argument  List:  NONE 
!  Common :  U ( ) 

!  Modules  Used:  APM_MOD 

!  Called  Routines:  APMINIT 

!  Routines  Called: 

!  APM  Specific:  ANTPAT 

!  Intrinsic:  ASIN,  CMPLX,  CONJG,  COS,  FLOAT,  SIN,  SQRT 
!  GLOSSARY:  See  universal  glossary  for  common  variables. 

!  Input  Variables:  NONE 
!  Output  Variables:  NONE 
!  Local  Variables: 

!  ANTKO  =  Free  space  wavenumber  *  antenna  height 

!  ATTN  =  Attenuation  factor. 

I  DTERM  -  Exponential  phase  term  for  real  source. 

!  DTHETA  =  Sine  of  bin  angle,  i.e.,  sin(theta),  where  theta  is  the 

!  transform  angle. 

!  FACD  =  Antenna  pattern  factor  for  direct  angle 

!  FACR  =  Antenna  pattern  factor  for  reflected  (image)  angle 

!  PK  =  Sine  of  angle. 

!  RTERM  =  Exponential  phase  term  for  image  source. 

!  SGAIN  =  Normalization  factor. 

!  ZPK  =  Phase  term  for  real  and  image  sources . 

SUBROUTINE  xyinit 

use  apm_mod 

complex  rterm,  dterm 

sgain=  sqrt (  wl  )  /  zmax 

dtheta  =  delp  /  fko 
antko  -  fko  *  antht 

DO  1=0, N 


pk  =  float (i)  *  dtheta 
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zpk  =  pk  *  antko 

!  Get  antenna  pattern  factors  for  the  direct  and  reflected  rays . 

alphad  =  asin(  pk  ) 

call  antpat (  alphad,  FACD  ) 

call  antpat (  -alphad,  FACR  ) 

rterm  =  cmplx (  cos (  zpk  ),  sin(  zpk  )  ) 
dterm  =  conjg(  rterm  ) 

I  Assume  perfect  conductor,  horizontal  polarization. 

u{i)  =  sgain  *  (  facd  *  dterm  -  facr  *  rterm  ) 
end  do 

!  Filter  upper  1/4  of  the  field. 

do  i  =  n34 ,  n 

attn  =  filt(i-n34) 
u (i)  =  attn*u (i) 
end  do 

END  subroutine  xyinit 
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A.2  SUBROUTINE  APMSTEP 


j  ************************  SUBROUTINE  APMSTEP  ******************** 

!  Module  Name:  APMSTEP 

i  Module  Security  Classification:  UNCLASSIFIED 

!  Purpose:  This  routine  advances  and  computes  the  propagation  loss  for 
!  one  output  range  step. 

!  Version  Number:  1.0 

!  INPUTS: 

!  Argument  List:  ISTP 

!  Common:  GASATT ,  HTLIM,  IHYBRID,  IPOL,  IZG,  KABS,  NROUT ,  NZOUT,  RATZ 
!  Public:  HTFE ( ) ,  RNGOUT ( ) ,  RSQRD ( ) ,  ZOUT ( ) 

!  Data:  RTST 

!  OUTPUTS: 

!  Argument  List:  JEND,  JSTART,  MLOSSO,  ROUT 
!  Common:  JT1,  JT2 

!  Modules  Used:  APM_MOD 

!  Calling  Routines:  MAIN  DRIVER  PROGRAM 
!  Routines  called: 

!  APM  Specific:  FEM,  PESTEP,  ROM 
!  Intrinsic:  AMAXO,  NINT 

!  GLOSSARY:  See  universal  glossary  for  common  variables  and  parameters. 

!  Input  Variables : 

!  ISTP  =  Current  output  range  step  index. 

!  Output  Variables: 

I  JEND  =  index  at  which  the  valid  propagation  loss  values  end. 

I  JSTART  =  index  at  which  the  valid  propagation  loss  values  begin. 

!  ROUT  =  current  output  range  in  meters. 

!  MLOSSO  -  2-byte  integer  array  containing  propagation  loss  values 

!  in  centibels  vs.  height,  at  each  output  range  ROUT. 

!  All  loss  values  returned  are  referenced  to  height  HMIN. 

I  Local  Variables: 

i  JFE  =  ending  index  within  MLOSSO  of  FE  loss  values. 

!  JFS  =  starting  index  within  MLOSSO  of  FE  loss  values. 

!  JPE  =  ending  index  within  MLOSSO  of  PE  loss  values, 

i  JPS  =  starting  index  within  MLOSSO  of  PE  loss  values. 

!  JRE  =  ending  index  within  MLOSS ( )  of  RO  loss  values . 

!  JRS  =  starting  index  within  MLOSSO  of  RO  loss  values. 

!  LABSCB  =  Loss  due  to  gaseous  absorption  in  centibels 

!  RSQ  =  Square  of  output  range  ROUT 

subroutine  apmstep(  istp,  ROUT,  MLOSS,  JSTART,  JEND  ) 

use  apm_mod 

integer*2  mloss(0:*),  labscb 

double  precision  rsq 

rout  =  rngout(istp) 
rsq  =  rsqrd(istp) 
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jps  =  0 
jpe  =  0 
jrs  =  0 
jre  =  0 
jfs  =  0 
jfe  =  0 

! Advance  and  compute  the  field  for  one  output  range  step, 
call  pestep (  istp,  rout,  MLOSS,  JPS,  JPE  ) 
jstart  =  jps 

if ( (  ihybrid  .eq.  1  )  .and.  (  rout  .It.  ratz  ))  then 

if {  rout  .le.  rtst  )  then 
jfs  =  amaxO (  0,  izg  ) 
if (  ipol  .eq.  0  )  jfs  =  jfs  +  1 
jfe  =  nzout 
else 

if (  htfe(istp)  .It.  htlim-l.e-3  )  then 
j  =  nzout 

do  while (  zout(j)  .gt.  htfe(istp)  ) 

j  -  j  -  1 

end  do 

jfs  =  amaxO (  jpe+1,  j+1  ) 
jfe  =  nzout 
end  if 
end  if 

if (  jfe  .gt.  0  )  call  fem(  rout,  rsq,  MLOSS,  JFS,  JFE  ) 

!  Get  loss  based  on  RO  calculations  from  ZOUT(JRS)  to  ZOUT(JRE). 

if {  rout  .gt.  rtst  )  then 
jre  =  jfs  -  1 

if (  jre  .It.  0  )  jre  =  nzout 

if ( {  jre  .eq.  0  )  .and.  (  ipol  .eq.  0  ))  jre  =  nzout 
jrs  =  jpe  +  1 
if (  jpe  .eq.  0  )  jrs  «  0 
if (  jrs  .gt.  jre  )  then 
jrs  =  0 
jre  =  0 
end  if 
end  if 

if  (  jre  .gt.  0  )  call  rom(  istp,  rout,  MLOSS,  jrs,  jre  ) 
end  if 

jend  =  amaxO  (  jfe,  jre,  jpe  ) 

! Compute  loss  due  to  gaseous  absorption  and  add  to  propagation  loss. 

if (  kabs  . gt.  0  )  then 
do  i  =  jstart,  jend 

labscb  =  nint {  rout  *  gasatt  ) 
mloss(i)  =  mloss(i)  +  labscb 
end  do 
end  if 

I  Reset  counters  for  calling  TROPO  from  XOSTEP  routine. 

if (  istp  .eq.  nrout  )  then 
jtl  =  1 
jt2  =  1 
end  if 
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end  subroutine  apmstep 


A.2.1  Subroutine  CALCLOS 


*****************************  SUBROUTINE  CALCLOS  ************************* 


!  Module  Name:  CALCLOS 

i  Module  Security  Classification:  UNCLASSIFIED 

!  Purpose:  Determines  the  PE  propagation  loss  at  each  output  range  step 
!  ROUT  and  all  heights  up  to  ZLIM. 

!  Version  Number:  1.0 

!  INPUTS: 

!  Argument  List:  ISTP,  RLAST 

!  Common:  DELZ,  DR,  DZOUT,  FTER,  HMREF,  I HYBRID,  IPOL,  ITROPO,  IXO, 
i  NZOUT,  RLOG,  RLOGLST,  RPEST,  YCUR,  YLAST,  ZLIM 

!  Public:  FSLR ( ) ,  HLIM ( ) ,  HTFE ( ) ,  RNGOUT ( ) ,  U(),  ULST ( ) ,  ZOUT ( ) 

!  OUTPUTS: 

!  Argument  List:  JEND,  JSTART,  MLOSSO 
!  Common:  IZG 

!  Public:  FFROUT ( )  ,  RFAC1(),  RFAC2 ( )  ,  RLOSS ( ) 

!  Modules  Used:  APM__MOD 
i  Calling  Routines:  PESTEP 
!  Routines  called: 

i  APM  Specific:  GETPFAC ( function) ,  TROPO 
1  Intrinsic:  AMAXO,  AMAX1 ,  AMIN1,  INT,  NINT 

!  GLOSSARY:  See  universal  glossary  for  common  variables,  public  variables, 
!  and  parameters . 

!  Input  Variables: 

I  ISTP  =  index  of  output  range  step 

!  RLAST  -  last  PE  range  in  meters 

!  Output  Variables: 

!  JEND  -  index  at  which  valid  loss  values  in  MLOSSO  ends. 

!  JSTART  =  index  at  which  valid  loss  values  in  MLOSSO  begin. 

!  MLOSSO  -  2-byte  integer  array  containing  propagation  loss  values 

!  in  centibels  vs.  height,  at  each  output  range  ROUT. 

!  All  loss  values  returned  are  referenced  to  height  HMIN . 

!  Local  Variables: 

!  FF  =  Propagation  factor  in  dB  at  range  ROUT  and  specified  height. 

I  IP1  =  Index  in  array  RFAC1 ( )  corresponding  to  ground  height  at 

!  previous  PE  range.  All  array  elements  in  RFAC1 ( )  from  1  to 

!  IP1  are  set  equal  to  PFACMIN. 

!  IP2  =  Index  in  array  RFAC2 ( )  corresponding  to  ground  height  at 

!  current  PE  range.  All  array  elements  in  RFAC2 ( )  from  1  to 

!  IP2  are  set  equal  to  PFACMIN. 

!  PFACMIN  =  Minimum  propagation  factor  allowed  to  avoid  overflow. 

!  RLOSS ()  =  Propagation  loss  in  dB  vs.  height  at  range  ROUT. 

!  ROUT  =  Current  output  range  in  meters. 

!  XX  =  Fractional  range  at  which  to  interpolate  propagation  factor 

!  for  current  output  range  ROUT. 

!  YCH  =  Height  of  terrain  at  current  PE  range  relative  to 

!  reference  height  HMREF. 

!  YLH  =  Height  of  terrain  at  previous  PE  range  relative  to 
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!  reference  height  HMREF. 

!  ZEND2  =  Height  at  which  to  stop  calculating  propagation  factor. 

I  ZHT  =  Height  at  which  to  compute  propagation  factor. 

!  ZINT  *  Interpolated  ground  height  at  current  output  range  ROUT. 

subroutine  calclos {  rlast,  istp,  MLOSS,  JSTART,  JEND  ) 

use  apm_mod 

integer*2  mlo ss(0:*) 

data  pfacmin  /  300.  /  ! Set  minimum  propagation  factor  of  300  dB 

!  Define  in-line  function  for  linear  interpolation. 

plint (pll,  pl2,  frac)  =  pll  +  frac  *  (  pl2  -  pll  ) 

rout  =  rngout(istp) 
ych  =  ycur  -  hmref 
ylh  =  ylast  -  hmref 

!  Get  height  of  ground  at  output  range  ROUT  and  determine  number  of  vertical 
i  output  points  that  correspond  to  the  ground  height.  Fill  the  loss  array 
!  MLOSS ( )  with  zeros  to  represent  ground  for  those  vertical  output  points . 

xx  =  (rout  -  rlast)  /  dr 
zint  =  plint {  ylast,  ycur,  xx  ) 
izg  =  int (  (zint-hmref)  /  dzout  ) 
do  i  =  0,  izg 
mloss(i)  =  0 
end  do 

j start  =  amaxO (  0,  izg  ) 

if (  ipol  .eq.  0  )  j start  =  j start  +  1 

i  jf  current  output  range  is  greater  than  RPEST  then  begin  calculation  of 
t  loss  values  and  return  them  in  MLOSS (). 

if (  rout  .gt.  rpest  )  then 

I  Determine  values  of  array  elements  corresponding  to  the  ground  and  set  these 
!  to  the  minimum  propagation  factor  (-300)  for  later  interpolation. 

ipl  =  0 
ip2  =  0 

if(  fter  )  then 

ipl  =  int (  ylh  /  dzout  ) 
ip2  =  int (  ych  /  dzout  ) 
ipl  =  amaxO (  0,  ipl  ) 
ip2  =  amaxO (  0,  ip2  ) 

if (  zout (ipl) -ylast  .It.  0.  )  ipl  -ipl  +  1 
if (  zout (ip2) -ycur  .It.  0.  )  ip2  =  ip2  +  1 

do  i  =  0,  ipl 

rfacl(i)  -  pfacmin 
end  do 

do  i  =  0,  ip2 

rfac2(i)  =  pfacmin 
end  do 
end  if 

1  Determine  height/integer  value  at  which  to  stop  calculating  loss, 
i  NOTE:  For  terrain  cases,  ray  tracing  was  performed 

1  using  the  direct  ray  angle  and  sometimes  HLIM(i)  may  be  less  than  the 
!  local  ground  height.  The  GOTO  statement  is  used  just  as  a  safety  factor 
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!  in  this  case. 


zendl  =  amaxl  (  zint,  hlim(istp)  ) 
zend2  =  aminl (  zlim,  zendl  ) 

jend  =  amaxO (  0,  nint (  (zend2-hmref )  /  dzout  )  ) 
if (  jend  .It.  jstart  )  goto  5 

!  Get  propagation  factor  at  valid  heights  from  field  at  previous  PE  range. 

if(  rloglst  .gt.  0.  )  then 
do  i  =  ipl,  jend 

zht  =  zout(i)  -  ylast 

rfacl(i)  =  getpfac (  ulst,  rloglst,  delz,  zht  ) 
end  do 
end  if 

!  Get  propagation  factor  at  valid  heights  from  field  at  current  PE  range. 

do  i  =  ip2,  jend 

zht  -  zout(i)  -  ycur 

rfac2(i)  -  getpfac (  u,  rlog,  delz,  zht  ) 
end  do 

!  If  using  PE  model  only  or  PE  &  XO  model,  determine  what  heights  in  MLOSSO 
!  will  contain  invalid  loss  and  set  equal  to  -1. 

if (  ihybrid  .ne.  1  )  then 

jstartl  =  int (  (htfe(istp)  -  hmref)  /  dzout  ) 
do  i  =  jstart,  jstartl 
mloss  (i)  =  -1 
end  do 

jstart  =  amaxO (  jstart,  jstartl+1) 
end  if 

!  If  using  full  hybrid  model  or  PE  &  XO  model,  determine  the 
!  propagation  factor  at  the  last  point  in  height  in  the  PE  region.  This 
I  is  used  for  subsequent  interpolation  in  the  XO  model. 

if (  ixo  .gt.  0  )  then 
zl  =  zlim  -  ylast 
z2  =  zlim  -  ycur 

rfl  =  getpfac (  ulst,  rloglst,  delz,  zl  ) 
rf2  =  getpfac (  u,  rlog,  delz,  z2  ) 
ff  =  plint (  rfl,  rf2,  xx  ) 
ffrout (1, istp)  =  ff 
ffrout (2, istp)  -  zlim- zint 
end  if 

!  Interpolate  between  the  current  and  last  PE  range  to  get  propagation  loss 
!  at  range  ROUT.  Compute  troposcatter  loss  for  total  loss  contribution. 

do  k  =  jstart,  jend 

if{  rloglst  .gt.  0.  )  then 

ff  =  plint (  rfacl(k),  rfac2(k),  xx  ) 
rloss(k)  =  ff  +  fslr(istp) 
else 

rloss(k)  =  rfac2(k)  +  fslr(istp) 
end  if 
end  do 

if (  itropo  .  eq.  1  )  call  tropo (  istp,  jstart,  jend  ) 
do  k  =  jstart,  jend 

mloss (k)  =  nint (  10.*  rloss(k)  ) 
end  do 

5  continue 
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I  Fill  remainder  of  array  with  -1  indicating  non-valid  loss  values. 

jn  =  jend  +  1 
do  i  =  jn,  nzout 
mloss  (i)  =  -1 
end  do 

else 

i  if  current  output  range  is  less  than  RPEST  then  there  are  no  current  valid 
!  loss  values  at  any  height  -  fill  MLOSS {)  with  -1.  JSTART  and  JEND  will  be 
!  equal  and  will  have  a  value  of  1  if  smooth  surface  case,  otherwise  will 
!  have  a  value  of  the  nearest  integer  multiple  of  DZOUT  corresponding  to  the 
!  height  of  the  local  ground. 

jend  =  j start 
do  i  =  j start,  nzout 
mloss (i)  =  -I 
end  do 

end  if 

end  subroutine  calclos 


A.2.2  Subroutine  DOSHIFT 


SUBROUTINE  DOSHIFT 


Module  Name:  DOSHIFT 

Module  Security  Classification:  UNCLASSIFIED 

Purpose:  Shifts  the  PE  field  by  the  #  of  bins  corresponding  to  height  of 
the  ground. 

Version  Number:  1.0 


INPUTS : 

Argument  List:  NONE 

Common:  DELZ,  N,  NM1,  YCUR,  YLAST 

Public:  U ( ) 

OUTPUTS : 

Argument  List:  NONE 
Public:  U<) 

Modules  Used:  APM_MOD 

Calling  Routines:  PESTEP 

Routines  called: 

APM  Specific:  NONE 
Intrinsic:  ABS,  NINT 

GLOSSARY: 

Input  Variables: 

See  universal  glossary  for  common  variables 
Output  Variables: 

See  universal  glossary  for  common  variables 
Local  Variables: 

INCR  =  Integer  indicating  which  direction  to  shift  field  U(). 
INCR  =  1  ->  terrain  slope  is  positive,  shift  down. 
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!  INCR  =  -1  ->  terrain  slope  is  negative,  shift  up. 

!  KBIN  =  Integer  #  of  bins  or  mesh  heights  to  shift. 

!  YDIF  -  Height  difference  between  current  and  last  ground  elevation, 

subroutine  doshift 
use  apm_mod 

!  Determine  #  of  bins  to  shift  field. 

ydif  =  ycur  -  ylast 

kbin  =  nint (  abs (ydif )  /  delz  ) 

if(  kbin  .eq.  0  )  return 

!  If  slope  is  positive  then  shift  array  elements  down. 

if (  ydif  .ge.  0.  )  then 
incr  =  1 
jst  =  1 

jend  =  nml  -  kbin 
else 

!  If  slope  is  negative  then  shift  array  elements  up. 

incr  =  -1 
jst  =  nml 
jend  -  kbin  +  1 
end  if 

kinc  -  incr  *  kbin 
do  j  =  jst,  jend,  incr 
jk  =  j  +  kinc 
u(j)  =  u  ( jk) 
end  do 

if (  incr  .gt.  0  )  then 
nst  =  n  -  kbin 
do  j  -  nst,  nml 
u { j )  =  0. 
end  do 
else 

do  j  =  1,  kbin 
u(j)  =  0. 
end  do 
end  if 

end  subroutine  doshift 


A.2.3  Subroutine  FEM 


t 


SUBROUTINE  FEM  ************************* 


!  Module  Name:  FEM 

!  Module  Security  Classification:  UNCLASSIFIED 

!  Purpose:  This  routine  determines  propagation  loss  based  on  flat 
!  earth  calculations  for  all  output  heights  specified  at  each 

!  output  range  ROUT. 

!  Version  Number:  1.0 

!  INPUTS: 

!  Argument  List:  JFE,  JFS,  ROUT,  RSQ 
!  Common:  ANTREF,  FKO,  HTLIM,  PLCNST,  TWOKA 
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Public:  ZOUTMAO,  ZOUTPAO 


!  OUTPUTS: 

!  Argument  List:  MLOSSO 
!  Common:  ALPHAD,  XREFLECT 

!  Modules  Used:  APM_MOD 

!  Calling  Routines:  APMSTEP,  XOSTEP 

!  Routines  called: 

i  APM  Specific:  ANTPAT,  GETREFCOEF 

1  Intrinsic:  ALOGIO,  AMAX1,  ATAN,  COS,  DLOGIO,  NINT,  SQRT 
I  GLOSSARY:  See  universal  glossary  for  common  variables. 

!  Input  Variables : 

1  ROUT  =  Current  output  range  in  meters. 

!  RSQ  =  Square  of  output  range  ROUT 

!  Output  Variables: 

i  jFE  =  Ending  index  within  MLOSSO  of  FE  loss  values. 

!  JFS  =  Starting  index  within  MLOSSO  of  FE  loss  values, 

i  MLOSSO  =  2-byte  integer  array  containing  propagation  loss  values 

j  in  centibels  vs.  height,  at  each  output  range  ROUT, 

i  All  loss  values  returned  are  referenced  to  height  HMIN. 

!  Local  Variables: 

i  ALPHAR  =  Reflected  ray  angle. 

}  DLOSS  =  Propagation  loss  in  dB. 

1  FACD  =  Antenna  pattern  factor  for  direct  ray. 

i  FACR  =  Antenna  pattern  factor  for  reflected  ray. 

!  FFAC2  =  Square  of  pattern  propagation  factor, 

t  FFACDB  -  Pattern  propagation  factor  in  dB 

!  PHDIF  =  Total  phase  difference  between  direct  and  reflected  ray, 

i  including  phase  change  upon  reflection. 

I  R1  =  Path  length  of  direct  ray 

!  R2  =  Path  length  of  reflected  ray 

i  REFCOEF  =  Complex  reflection  coefficient. 

!  RMAG  -  Magnitude  of  reflection  coefficient, 

i  RPHASE  =  Phase  of  reflection  coefficient. 

j  RSQK  =  Current  output  range  squared  divided  by  TWOKA  (2*ek*a) . 

i  ZM  =  Height  of  desired  output  point  relative  to  real  source  height 

i  with  earth  curvature  offset. 

i  ZP  =  Height  of  desired  output  point  relaive  to  imaginary  source 

I  height  (for  reflected  ray)  with  earth  curvature  offset. 

subroutine  fem(  rout,  rsq,  MLOSS,  jfs,  jfe  ) 

use  apm_mod 

integer*2  mloss(0:*) 

complex  refcoef 

double  precision  rsq,  rsqk,  rl,  r2,  phdif 

rsqk=  rsq  /  twoka 
xreflect  =  0. 

!  Begin  loop  for  calculations  of  FE  loss  for  heights  from  ZOUT(JFS)  to 
!  ZOUT(JFE). 

do  i  =  jfs,  jfe 

zm  =  zoutma(i)  -  rsqk 
zp  =  zoutpa(i)  -  rsqk 
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! Determine  point  of  reflection. 

xreflect  =  rout  *  antref  /  zp 
!  ALPHAD  =  direct  ray  angle 

!  ALPHAR  =  reflected  ray  angle  (grazing  angle  =  -ALPHAR) 

alphad  =  atan (  zm  /  rout  ) 
alphar  =  atan(  zp  /  rout  ) 

call  antpat (  alphad,  FACD  ) 
call  antpat (  -alphar,  FACR  ) 

rl  -  sqrt (  zm*zm  +  rsq  ) 
r2  =  sqrt (  zp*zp  +  rsq  ) 

!  Determine  reflection  coefficient. 

call  getrefcoef(  alphar,  REFCOEF,  RMAG,  RPHASE  ) 

!  Now  get  total  phase  lag  and  compute  propagation  factor  and  loss. 

phdif  =  (  r2  -  rl  )  *  fko  +  rphase 
frterm  -  facr  *  rmag 

ffac2  =  facd*facd  +  frterm*frterm  +2.  *  facd  *  frterm  *  cos (phdif) 

ffacdb  =  -10.  *  aloglOt  amaxl (  ffac2,  l.e-25  )  ) 

dloss  -  plcnst  +20.  *  dloglO (  rl  )  +  ffacdb 
mloss(i)  =  nint (  10.  *  dloss  ) 

end  do 

end  subroutine  fern 


A.2.4  Subroutine  FRSTP 


i  **************************  SUBROUTINE  FRSTP  ****************************** 

1  Module  Name:  FRSTP 

!  Module  Security  Classification:  UNCLASSIFIED 

!  Purpose:  Propagates  the  field  FARRAYO  in  free  space  by  one  range  step. 

!  If  polarization  is  horizontal,  then  upon  entry  FARRAYO  is  the 

!  field  array  U().  If  using  vertical  polarization,  FARRAYO  is  W(). 

!  Version  Number:  1.0 

I  INPUTS: 

!  Argument  List:  FARRAYO 

!  Common :  NM1 

1  Public:  FRSPO 

!  OUTPUTS: 

!  Argument  List:  FARRAYO 

!  Common:  NONE 

\  Calling  Routines:  PESTEP 

!  Routines  called: 

!  APM  Specific:  FFT 

1  Intrinsic:  NONE 
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!  GLOSSARY:  See  universal  glossary  for  common  variables. 

!  Input  Variables: 

!  FARRAYO  =  Field  array  to  be  propagated  one  range  step  in  free 

t  space  (z-space) . 

!  Output  Variables : 

!  FARRAYO  «  Free-space  propagated  field  (returned  in  z-space). 

!  Local  Variables:  NONE 
subroutine  frstp(  FARRAY  ) 
use  apm_mod 
complex  farray(0:*) 

call  f ft (  FARRAY  )  ITransform  to  Fourier  space 

DO  i  =  1,  NM1  ’Multiply  by  free-space  propagator 

farray(i)  =  farray(i)  *  frsp(i) 
end  do 

call  f f t {  FARRAY  )  ITransform  back  to  z-space 

end  subroutine  frstp 


A.2.5  Subroutine  fzlim 


*************************  SUBROUTINE  FZLIM  ************************ 


!  Module  Name:  FZLIM 

!  Module  Security  Classification:  UNCLASSIFIED 

I  Purpose:  This  routine  stores  the  range,  propagation  factor  in  dB, 

!  and  determines  and  stores  the  outgoing  propagation  angle 

I  at  the  top  of  the  PE  region  at  each  range  R. 

!  Version  Number  1.0 

!  INPUTS: 

!  Argument  List:  R,  RLAST 

!  Common:  AATZ,  DELZ,  DR,  FTER,  IZ,  IZMAX,  RATZ,  RLOG,  RLOGLST,  YCUR, 
!  YLAST,  ZLIM 

!  Public:  U(),  ULST() 

!  OUTPUTS: 

!  Argument  List:  NONE 

!  Common:  IZ 

!  Public:  FFACZ(,) 

!  Modules  Used:  APM_MOD 

I  Calling  Routines:  PESTEP 

!  Routines  called: 

!  APM  Specific:  GETPFAC (function) ,  SAVEPRO,  SPECEST 
!  Intrinsic:  ABS,  AMINO,  AMIN1,  SIGN 

I  GLOSSARY:  See  universal  glossary  for  common  variables. 

!  Input  Variables: 

!  R  =  Current  PE  range  in  meters . 

!  RLAST  =  Previous  PE  range  in  meters . 
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!  Output  Variables:  See  universal  glossary  for  common  variables. 

1  Local  Variables: 

!  ANGDIF  =  The  difference  between  current  outgoing  propagation 

!  angle  and  previous  angle  determined. 

!  IZP  =  Previous  index  counter  in  FFACZ(). 

!  PFDB  =  Propagation  factor  in  dB  at  current  PE  range  R  at  height 

!  ZLIM. 

!  PFDBLST  =  Propagation  factor  in  dB  at  previous  PE  range  RLAST  at  height 

!  ZLIM. 

!  PFRATZ  =  Propagation  factor  in  dB  at  range  RATZ  and  height  ZLIM. 

!  THOUT  -  Outgoing  propagation  angle  determined  at  top  of  PE  region. 

subroutine  fzlim(  r,  rlast  ) 

use  apm_mod 

!  FFACZ (1,1)  =  propagation  factor  in  dB 
[  FFACZ (2, I)  -  range  in  meters 
!  FFACZ (3,1)  =  angle  in  radians 

pfdb  =  getpfac(  u,  rlog,  delz,  zlim-ycur  ) 

if (  iz  .eq.  1  )  then 

pfdblst  =  getpfac(  ulst,  rloglst,  delz,  zlim-ylast  ) 
frac  =  (  ratz  -  rlast  )  /  dr 
pfratz  =  pfdblst  +  frac  *  (  pfdb  -  pfdblst  ) 
ffacz(l,iz)  =  pfratz 
ffacz(2,iz)  =  ratz 
ffacz(3,iz)  =  aatz 
call  savepro 
end  if 

!  Perform  spectral  estimation  using  top  layer  from  height=JZLIM*DELZ  to 
!  height^ ( JZLIM-NPNTS) *DELZ .  Determine  outgoing  propagation  angle  THOUT. 

call  specest (  THOUT  ) 

iz  =  iz  +  1 

iz  =  aminO (  iz,  izmax  ) 
ffacz(l,iz)  =  pfdb 
ffacz(2,iz)  =  r 

!  Do  not  let  THOUT  become  greater  than  the  GOOD  portion  of  the  maximum 
!  PE  propagation  angle. 

ffacz(3,iz)  =  aminl (  aatz,  thout  ) 

if (  iz  .ge.  2  )  then 

!  To  avoid  extreme  "spiking",  limit  the  change  in  angle  values. 

izp  =  iz  -  1 

if (  .not.  fter  )  then 

ffacz{3,iz)  =  aminl (  f f acz  (3, izp) ,  thout  ) 
angdif  =  ffacz(3,iz)  -  ffacz(3,izp) 
if (  abs (angdif )  .gt.  l.e-4  )  & 

ffacz(3,iz)  =  ffacz(3,izp)  +  sign (1 ., angdif ) *1 . e-4 

else 

if(  iz  .le.  10  )  then 

angdif  =  ffacz(3,iz)  -  ffacz(3,izp) 
if (  abs (angdif)  .gt.  l.e-4  )  & 

f facz (3, iz)  =  f facz (3, izp)  +  sign (1 ., angdif ) *1 .e-4 

end  if 
end  if 
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end  if 


call  savepro 

end  subroutine  fzlim 


A.2.6  Function  GETPFAC 


FUNCTION  GETPFAC 


!  Module  Name :  GETPFAC 

1  Module  Security  Classification:  UNCLASSIFIED 

!  Purpose:  Performs  linear  interpolation  in  height  on  magnitude  of  the 
I  PE  field  and  then  calculates  propagation  factor  in  dB. 

!  Version  Number:  1.0 


!  INPUTS : 

!  Argument  List:  DELZ,  HEIGHT,  RLOG 
I  Common :  NONE 

!  Public:  U() 

1  OUTPUTS: 

I  Function:  GETPFAC 

!  Calling  Routines:  CALCLOS,  FZLIM 

!  Routines  Called: 

!  APM  Specific:  NONE 

!  Intrinsic:  ALOGIO,  AMAX1,  CABS,  FLOAT,  INT 

1  GLOSSARY: 

!  Input  Variables : 

«  DELZ  =  Bin  width  in  z-space  =  WL  /  (2*sin (THETAMAX) ) 

i  RLOG  =10.  *  aloglO (  PE  range  ) 

!  HEIGHT  =  receiver  height  in  meters 

!  U()  =  Complex  array  containing  PE  field  solution. 

!  Output  Variables : 

i  GETPFAC  =  Propagation  factor  at  height  HEIGHT  in  dB. 

!  Local  Variables: 

i  FB  =  Real  number  of  bins  corresponding  to  HEIGHT. 

i  FR  =  Real  difference  between  FB  and  NB. 

i  NB  =  Integer  number  of  bins  corresponding  to  HEIGHT. 

!  NBP1  =  NB  +  1 

1  U0  =  Complex  field  at  bin  directly  below  (NB)  desired  height  HEIGHT, 

i  U1  =  Complex  field  at  bin  directly  above  (NBP1)  desired  height  HEIGHT 

i  PMAGO  =  Magnitude  of  field  at  bin  NB. 

!  PMAG1  =  Magnitude  of  field  at  bin  NBP1. 

1  pMAG  =  Interpolated  magnitude. 

!  PMAGMIN  =  Lower  limit  on  magnitude  of  field  to  avoid  underflow/ 

i  overflow  problems . 

i  PFAC  =  Propagation  factor  in  dB. 

function  GETPFAC (  u,  rlog,  delz,  height  ) 

complex  u(0:*),  uO,  ul 

data  pmagmin/1 . e-10/ 

fb  =  height  /  delz 
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nb^int (fb) 
fr=fb-float (nb) 
nbpl=nb+l 

uO=u (nb) 
ul=u (nbpl) 

pmagO  =  cabs (  uO  ) 
pmagl  =  cabs (  ul  ) 

pmag  =  pmagO  +  fr  *  (pmagl  -  pmagO) 

pmag  =  amaxl  (  pmag,  pmagmin  ) 
pfac  =  -20.*alogl0(  pmag  )  -  rlog 
getpfac  =  amaxl (  pfac,  -200.  ) 

end  function  getpfac 


A.2.7  Subroutine  GETREFCOEF 

!  ***************************  SUBROUTINE  GETREFCOEF  *********************** 


!  Module  Name:  GETREFCOEF 

!  Module  Security  Classification:  UNCLASSIFIED 
I  Purpose:  Calculates  the  complex  reflection  coefficient. 

!  Version  Number:  1.0 
!  INPUTS: 

!  Argument  List:  ANGLE 
!  Common:  FREQ,  IGR,  I POL,  XREFLECT 
!  Public :  CN2 ( ) ,  RGRND ( ) 

!  Parameter:  PI 

!  OUTPUTS: 

!  Argument  List:  REFCOEF,  RMAG,  RPHASE 
!  Common :  NONE 

!  Modules  Used:  APM_MOD 

!  Calling  Routines:  FEM,  ROCALC 

1  Routines  called: 

!  APM  Specific:  NONE 

!  Intrinsic:  AT AN 2 ,  CABS,  CMPLX,  COS,  CSQRT,  IMAG,  REAL,  SIN 

!  GLOSSSARY:  See  universal  glossary  for  common  variables  and  parameters. 

!  Input  Variables: 

!  ANGLE  =  grazing  angle 

!  Output  Variables: 

!  .  REFCOEF  =  complex  reflection  coefficient 

!  RMAG  =  magnitude  of  the  reflection  coefficient 

!  RPHASE  =  phase  of  the  reflection  coefficient 

!  Local  Variables: 

!  CRAD  =  Term  used  in  calculation  of  reflection  coefficient. 

!  CRAD  -  sqrt [  n**2  -  (cos (angle) ) **2  ]  where  n  =  index 

!  of  refraction. 

!  RNG2T  =  Complex  dielectric  constant  applied  at  the  point  of 

!  reflection. 

!  SRAD  =  Term  used  in  calculation  of  reflection  coefficient. 
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!  SRAD  =  n**2  *  sin (angle)  where  n=index  of  refraction, 

subroutine  getrefcoef (  angle,  REFCOEF,  RMAG,  RPHASE  ) 
use  apm__mod 

complex  refcoef,  crad,  srad,  rng2t 

if (  igr  . eq.  1  )  then 
rng2t  =  cn2(l) 
else 

k  =  1 

do  while (  rgrnd(k)  .It.  xreflect  ) 
k  -  k  +  1 
end  do 

k  =  amaxO (  1,  k-1  ) 
rng2t  =  cn2(k) 
end  if 

if (  ipol  .eq.  1  )  then 

!  Compute  complex  reflection  coefficient  for  vertical  polarization. 

ctheta  =  cos (  angle  ) 
stheta  -  sin(  angle  ) 

crad  =  csqrt {  rng2t  -  ctheta*ctheta  ) 
srad  =  rng2t  *  stheta 

refcoef  -  (srad  -  crad)  /  (srad  +  crad) 
rmag  =  cabs (  refcoef  ) 

rphase  =  atan2 (  imag (  refcoef  ),  real (  refcoef  )  ) 
else 

i  Compute  complex  reflection  coefficient  for  horizontal  polarization. 

!  Calculate  finite  conductivity  ref.  coef.  for  H  pol  for  frequencies 
i  <=  300  MHz.  Assume  perfect  conductivity  for  frequencies  >  300  MHz. 

if (  freq  .le.  300.  )  then 
ctheta  =  cos (  angle  ) 
stheta  =  sin(  angle  ) 

crad  =  csqrt (  rng2t  -  ctheta*ctheta  ) 
refcoef  =  (stheta  -  crad)  /  (stheta  +  crad) 
rmag  =  cabs (  refcoef  ) 

rphase  =  atan2 (  imag(  refcoef  ),  real (  refcoef  )  ) 
else 

refcoef  =  cmplx (  -1.,  0.  ) 
rmag  =  1. 
rphase  -  pi 
end  if 
end  if 

end  subroutine  getrefcoef 


A.2.8  Subroutine  PESTEP 


I 


SUBROUTINE  PESTEP  ****************************** 


!  Module  Name:  PESTEP 

!  Module  Security  Classification:  UNCLASSIFIED 

!  Purpose:  Propagates  the  PE  field  by  one  output  range  step  DROUT. 
!  Version  Number:  1.0 
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!  INPUTS : 

!  Argument  List:  ISTP,  ROUT 

!  Common:  ALPHAV,  Cl,  C2,  C1X,  C2X,  DR,  DR2,  DZ2 ,  FTER,  IG,  IGR,  I POL, 

!  ITPA,  IXO,  IZ,  IZINC,  N,  NM1,  NPROF,  RATZ,  RK,  RLOG, 

!  RMAX,  RT,  YCUR 

i  Public:  ENVPR ( ) ,  RGRND { ) ,  ROOT ( ) ,  ROOTM ( ) ,  SLP(),  TX ( ) ,  TY ( ) ,  U() 

!  OUTPUTS: 

!  Argument  List:  JEND,  JSTART,  MLOSS 

!  Common:  Cl,  C2,  IG,  RLOG,  RLOGLST,  YCUR,  YCURM,  YLAST 
!  Public:  U(),  ULST(),  W(),  YM ( ) 

!  Other:  RLAST,  RMID 

!  Modules  Used:  APM_MOD 

!  Calling  Routines:  APMSTEP 

!  Routines  Called: 

1  APM  Specific:  CALCLOS,  DOSHIFT,  FRSTP,  FZLIM,  GETALN,  REFINTER, 

!  PHASE2 

!  Intrinsic:  ALOGIO,  CMPLX 

!  GLOSSARY:  See  universal  glossary  for  common  variables. 

!  Input  Variables: 

!  ISTP  =  Index  of  current  output  range  step. 

!  ROUT  =  Current  output  range  in  meters. 

!  Output  Variables: 

!  JEND  =  Ending  index  within  MLOSS ()  of  PE  loss  values. 

!  JSTART  -  Starting  index  within  MLOSS ()  of  PE  loss  values. 

!  MLOSS ()  =  2-byte  integer  array  containing  propagation  loss  values 

!  in  centibels  vs.  height,  at  each  output  range  ROUT. 

!  All  loss  values  returned  are  referenced  to  height  HMIN . 

!  Local  Variables: 

!  IZT  «  Counter  used  in  order  to  determine  when  to  compute  outgoing 

!  propagation  angle,  and  save  propagation  factor  and  refractivity 

!  profile. 

t  KT  -  Counter  for  terrain  profile. 

I  R  =  Current  PE  range  in  meters. 

!  RLAST  =  PE  range  at  previous  step  in  meters . 

!  RMID  =  Range  at  which  interpolation  for  range-dependent  refractivity 

!  profiles  is  performed.  This  is  equal  to  the  range  midway 

!  between  the  current  and  next  PE  range . 

!  SLOPE  =  Slope  of  current  terrain  segment. 

!  (Note:  the  following  variables  are  only  used  for  vertical  polarization) 

!  AR  =  Complex  coefficient  of  partial  linear  solution  to 

!  homogeneous  equ. 

!  BR  =  Complex  coefficient  of  partial  linear  solution  to 

!  homogeneous  equ. 

!  ARX  =  Partial  linear  solution  to  homogeneous  equ. 

!  BRX  =  Partial  linear  solution  to  homogeneous  equ. 

!  C1C  =  Summation  argument  in  determining  AR. 

!  C2C  =  Summation  argument  in  determining  BR. 

!  SUM1  =  Summation  term  in  determining  AR. 

!  SUM2  =  Summation  term  in  determining  BR. 

!  UI  =  U(i) . 

!  UNMI  =  U(n-i) . 

subroutine  pestep(  istp,  rout,  MLOSS,  JSTART,  JEND  ) 
use  apitwnod 

complex  ar,  br,  suml,  sum2,  clc,  c2c,  arx,  brx 
integer*2  mloss(0:*) 
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save  r,  kt,  slope,  rlast 

!  initialize  local  variables. 

if (  istp  .eq.  1  )  then 
r  =  0. 
rlog  =  0. 
izt  =  0 
end  if 

!  Begin  loop. 

DO  while (  r  .It.  rout  ) 

if(  r  .gt.  0.  )  ylast  =  ycur 
rlast  =  r 
rloglst  =  rlog 

!  Store  the  field  arrays  of  the  previous  range  step  for  subsequent  horizontal 
!  interpolation  at  range  ROUT. 

do  i  -  0,  n 

ulst  (i)  =  u (i) 
end  do 

r  =  r  +  dr 

rlog  =  10.  *  alogl0(  r  > 
rmid  =  r  -  dr2 

if (  fter  )  then 

if (  rlast  .le.  l.e-3  )  then 
slope  =  slp(l) 
kt  -  1 
end  if 

!  Check  to  see  if  current  range  is  past  a  range  point  in  terrain  profile. 

!  If  so,  increment  counter,  determine  terrain  height  at  current  range. 

do  while { (r  .gt.  tx(kt+l))  .and.  (kt  .It.  itpa) ) 
kt  =  kt  +  1 
slope  =  slp(kt) 
end  do 

ycur  =  ty (kt)  +  slope  *  (  r  -  tx(kt)  ) 

!  Determine  height  at  1/2  range  step  -  for  interpolation  on  refractivity 
!  profiles. 

kp  =  kt 

do  while (  rmid  .It.  tx(kp)  ) 
kp  =  kp-1 
end  do 

ycurm  =  ty(kp)  +  slp(kp)  *  (rmid  -  tx(kp)) 

i  calculate  new  complex  refractive  index  and  impedance  term  if  using  vertical 
!  polarization. 

if ( (  ipol  .eq.  1  )  .and.  (  ig+1  -le.  igr  ) ) then 
if (  r  .gt.  rgrnd(ig+l)  )  then 
ig  =  ig  +  1 
call  getaln 
end  if 
end  if 

!  Perform  boundary  shift  for  terrain  case, 
if (  slope  .It.  0.  )  call  doshift 
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end  if 


if (  ipol  .eq.  1  )  then 
do  i  -  1,  nml 

w(i)  =  (u (i+1)  -  u(i-l))  /  dz2  +  alphav  *  u(i) 
end  do 

!  Transform  W()  to  p-space,  then  multiply  by  free-space  propagator, 

!  then  transform  back.  Upon  return  W()  is  in  z-space. 

call  frstp{  W  ) 

!  Propagate  Cl  and  C2  coefficients  to  new  range.  NOTE:  ONLY  FOR  SMOOTH 
!  SURFACE  (i.e.,  no  wind  speed). 

cl  =  cl  *  clx 
c2  =  c2  *  c2x 
else 

!  Transform  U()  to  p-space,  then  multiply  by  free-space  propagator, 

I  then  transform  back.  Upon  return  U()  is  in  z-space. 

call  frstp(  U  ) 

end  if 

!  If  range-dependent  and/or  terrain  case,  then  interpolate  on  profile. 

if((  nprof  . gt.  1  )  .or.  (  fter  ))  then 
call  ref inter (  istp,  rmid  ) 

CALL  PHASE2 
end  if 

!  This  follows  steps  9-11  in  Kuttler's  formulation  for  vertical 
!  polarization.  (Ref.  viewgraphs  from  1995  PE  Workshop) 

if (  ipol  .eq.  1  )  then 
ym ( 0 )  =  cmplx (0. ,  0. ) 
do  i  =  1,  nml 

ym(i)  =  dz2  *  w(i)  +  rt  *  ym(i-l) 
end  do 

!  Compute  particular  solution. 

u(n)  =  cmplx (0.,0.) 
do  i  =  1,  N 
nmi  =  n  -  i 

u(nmi)  -  rt  *  (ym(nmi)  -  u{nmi+l)) 
end  do 

! At  this  point  U()  is  the  particular  solution. 

! Determine  coefficients  AR  and  BR  for  homogeneous  solution. 

suml  =  .5  *  (  u(0)  +  u{n)*root(n)  ) 
sum2  =  .5  *  (  u (0) *rootm (n)  +  u(n)  ) 
do  i  =  1,  nml 

cl c  =  -u  (i)  *  root  (i) 
c2c  =  u(n-i)  *  rootm(i) 

suml  =  suml  +  clc 

sum2  -  sum2  +  c2c 

end  do 

ar  =  cl  -  rk  *  suml 

br  =  c2  -  rk  *  sum2 

! Now  compute  total  solution  as  the  sum  of  the  particular  and 
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! homogeneous  solutions. 


do  i  -  0,  n 

arx  =  ar  *  root(i) 
brx  =  br  *  rootm(n-i) 
u(i)  =  u(i)  +  arx  +  brx 
end  do 
end  if 

!  Multiply  by  environment  term. 

DO  I  -  0,  nml 

u (i)  =  u (i)  *  envpr(i) 
end  do 

!  Perform  boundary  shift  for  terrain  case. 

if ( (  fter  )  .and.  (  slope  .ge.  0.  ))  call  doshift 

i  store  propagation  factor  along  with  current  range  and  outgoing 
!  propagation  angle  if  using  hybrid  method  (for  extended  optics) . 

if ( (  ixo  .ge.  1  )  .and.  (  r  .gt.  ratz  ))  then 
if {  iz  .eq.  1  )  call  fzlim(  r,  rlast  ) 
izt  =  izt  +  1 

if ( (  izt  .eq.  izinc  )  .or.  (  abs(r-rmax)  .It.  dr  ))  then 
call  fzlim(  r,  rlast  ) 
izt  =  0 
end  if 
end  if 

end  do 

!  Calculate  propagation  loss  at  range  ROUT, 
call  calclos (  rlast,  istp,  MLOSS,  JSTART,  JEND  ) 
end  subroutine  pestep 


A.2.9  Subroutine  Raytrace 

i **********************  SUBROUTINE  RAYTRACE  ******************* 


AUTHOR: 

Herb  Hitney 

Space  and  Naval  Warfare  Systems  Center,  San  Diego 
Tropospheric  Branch,  Code  D883 
ADDRESS: 

SPAWARSYSCEN  SAN  DIEGO  D883 
49170  PROPAGATION  PATH 
SAN  DIEGO  CA  92152-7385 
Tel:  619-553-1428  DSN  553-1428 
Fax:  619-553-1417  DSN  553-1417 
Email:  herb@spawar.navy.mil 

With  minor  code  modifications  by: 

Author:  Amalia  E.  Barrios 

SPAWARSYSCEN  SAN  DIEGO  D883 
49170  Propagation  Path 
San  Diego,  CA  92152-7385 
e-mail:  barrios@spawar.navy.mil 
phone:  (619)  553-1429 
fax:  (619)  553-1417 

Module  Name:  RAYTRACE 
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! Module  Security  Classification:  UNCLASSIFIED 

!  PURPOSE:  Computes  full  raytrace  to  range  ROUT  for  elevation 
!  angle  at  source  height. 

i Version  Number:  1.0  modified  from 

!  RPO  1.15B  DATE:  19  August  1996 

' INPUTS : 

l  Argument  list:  A,  ROUT 
!  Common:  ISTART,  LEVELS 
!  Public:  GR ( ) ,  Q(),  RM(),  ZRT() 

*  OUTPUT : 

!  Argument  list:  AB,  DXDA,  ITYPE,  PLD,  PSI,  ZR 
!  Common :  XREFLECT 

’Modules  Used:  APM_MOD 

I  CALLING  ROUTINES:  ROCALC,  ROLOSS 

! ROUTINES  CALLED: 

!  APM  Specific:  NONE 
I  Intrinsic:  ABS,  SIGN,  SQRT 

'GLOSSARY:  See  universal  glossary  for  common  variables. 

!  Input  Variables: 

!  A  =  elevation  angle  at  source  in  radians 

I  ROUT  =  terminal  range  in  meters 

!  Output  Variables : 

!  AB  -  elevation  angle  at  end  of  ray  step  in  radians 

!  DXDA  =  derivative  of  ROUT  w.r.t.  a  in  meters  per  radian 

!  ITYPE  =  0  for  direct  ray,  1  for  reflected  ray 

!  PLD  -  optical  path  length  difference  from  ROUT  in  meters 

!  PSI  =  0  for  direct  ray,  grazing  angle  for  ref.  ray  in  radians 

!  ZR  =  terminal  height  in  meters 

!  Local  Variables: 

!  AA  =  elevation  angle  at  start  of  ray  step  in  radians 

!  DELX  =  range  increment  in  one  ray  trace  step  in  meters 

!  DELZR  =  height  increment  in  one  ray  trace  step  in  meters 

!  GOFLAG  =  logical  flag,  true  normally,  false  to  stop  raytrace 

!  RAD  =  radical  for  square  root  test  in  ray  trace  step 

!  XSUM  =  running  sum  of  range  during  ray  trace  in  meters 

!  XTEMP  =  temporary  range  in  ray  trace  step  in  meters 

!  ZLIMIT  =  maximum  height  of  ray  that  turns  around  in  meters 

!  ZMIN  =  minimum  height  of  ray  that  turns  around  in  meters 

SUBROUTINE  raytrace  (rout,  a,  ZR,  AB,  DXDA,  PLD,  PSI,  ITYPE) 

use  apm_mod 

LOGICAL  goflag 

!  Set  initial  conditions  at  start  of  ray. 

xreflect  =  0. 
aa  =  a 
i  =  istart 
xsum  =  0. 
dxda  =  0. 
pld  =  0. 
psi  =  0. 
itype  =  0 
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goflag  =  .TRUE. 

i  Main  loop  repeats  until  goflag  is  false  (XSUM  =  ROUT) 

DO  WHILE  (goflag) 

aa2  =  aa**2 

IF  (aa  .GE.  0.)  THEN 

gri  =  gr (i) 
gri2  =  2.  *  gri 

!  Ray  is  upgoing. 

IF  (i  .EQ.  levels)  THEN 

!  Upgoing  ray  is  in  highest  layer  (last  step) . 

delx  =  rout  -  xsum 
ab  =  aa  +  delx  *  gri 
ab2  =  ab**2 

delzr  =  (ab2  -  aa2)  /  gri2 
zr  =  zrt(i)  +  delzr 

dxda  =  dxda  +  (a  /  ab  ~  a  /  aa)  /  gri 
pld  =  pld  +  ( (rm(i)  -  aa2  /  2.)  *  (ab  -  aa)  + 
(ab2  *  ab  -  aa2  *  aa)  /  3.)  /  gri 
goflag  =  -FALSE. 

ELSE 

!  Upgoing  ray  is  not  in  highest  layer . 

rad  =  aa2  +  q(i) 

IF  (rad  -GE.  0.)  THEN 

!  Upgoing  ray  penetrates  current  layer. 

ab  =  SORT (rad) 
ab2  =  ab**2 

delx  =  (ab  -  aa)  /  gri 
xtemp  =  xsum  +  delx 
IF  (xtemp  .LT.  rout)  THEN 

!  Full  upgoing  step  in  current  layer. 

xsum  =  xtemp 

dxda  =  dxda  +  (a  /  ab  -  a  /  aa)  /  gri 
pld  =  pld  +  (  (rm(i)  -  aa2  /  2.)  *  (ab  - 
(ab2  *  ab  -  aa2  *  aa)  13.)  /  gri 
aa  -  ab 

aa2  =  aa**2 
i  =  i  +  1 

gri  =  gr(i) 
gri2  =  2.  *  gri 


ELSE 

!  Final  upgoing  step  in  current  layer. 

delx  =  rout  -  xsum 
ab  =  aa  +  delx  *  gri 
ab2  =  ab**2 

zr  -  zrt (i)  +  (ab2  -  aa2)  /  gri2 
dxda  =  dxda  +  (a  /  ab  -  a  /  aa)  /  gri 
pld  =  pld  +  { (rm(i)  -  aa2  12.)  *  (ab  - 
(ab2  *  ab  -  aa2  *  aa)  /  3.)  /  gri 
goflag  =  .FALSE. 


aa)  +  & 


aa )  +  & 
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END  IF 


ELSE 

!  Upgoing  ray  turns  around  in  current  layer. 

delx  =  -aa  /  gri 

xtemp  =  xsum  +  delx 

IF  (xtemp  .LT.  rout)  THEN 

!  Full  step  in  upgoing  segment. 

xsum  =  xtemp 

xtemp  =  xsum  +  delx 

IF  (xtemp  .LT.  rout)  THEN 

!  Full  step  in  downgoing  segment. 

xsum  =  xtemp 
ab  -  -aa 

ELSE 

!  Last  step  in  downgoing  segment. 

zlimit  =  zrt(i)  -  aa  **  2  /  gri2 

delx  -  rout  -  xsum 

ab  =  delx  *  gr(i) 

delzr  =  ab  **  2  /  gri2 

zr  =  zlimit  +  delzr 

goflag  =  .FALSE. 

END  IF 

ELSE 

!  Last  step  in  upgoing  segment. 

delx  -  rout  -  xsum 
ab  -  aa  +  delx  *  gri 

zr  =  zrt(i)  -  (aa  **  2  -  ab  **  2)  /  gri2 
goflag  =  .FALSE. 

END  IF 

!  Following  section  applies  to  all  upgoing  rays  that  turn  around. 
ab2  =  ab**2 

dxda  =  dxda  +  (a/ab-a/aa)  /  gri 

pld  =  pld  +  ( (rm(i)  -  aa2  /  2.)  *  (ab  -  aa)  +  & 

(ab2  *  ab  -  aa2  *  aa)  /  3.)  /  gri 
aa  =  ab 

END  IF 
END  IF 
ELSE 

!  Ray  is  downgoing. 

griml  =  gr(i-l) 
griml2  -  2.  *  griml 
rad  =  aa2  -  q(i  -  1) 

IF  (rad  .GE.  0.)  THEN 

!  Downgoing  ray  penetrates  current  layer. 
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ab  =  -SQRT(rad) 

delx  =  (ab  -  aa)  /  griml 

xtemp  =  xsum  +  delx 

IF  (xtemp  .LT.  rout)  THEN 

!  Full  downgoing  step  in  current  layer. 

xsum  =  xtemp 

dxda  -  dxda  +  (a  /  ab  -  a  /  aa)  /  griml 
pld  =  pld  +  { (rm(i)  -  aa2  /  2.)  *  (ab  -  aa)  +  & 
(ab  **  3  -  aa2  *  aa)  /  3.)  /  griml 
aa  =  ab 

i  =  i  -  1 

IF  (i  .EQ.  0)  THEN 

!  Downgoing  ray  reflects  from  sea  surface. 

itype  =  1 

psi  =  ABS(aa) 

xreflect  «  xtemp 

xtemp  -  2.  *  xsum 

IF  (xtemp  .LT.  rout)  THEN 

i  use  symmetry  concept  to  double  ray  path  up  to  source  level. 

aa  =  -a 
i  =  istart 
xsum  =  xtemp 
dxda  =  2.  *  dxda 
pld  =  2.  *  pld 

ELSE 

!  Downgoing  ray  reflects,  but  symmetry  concept  is  not  used. 

aa  =  -aa 

END  IF 
END  IF 
aa2  =  aa**2 

ELSE 

!  Final  downgoing  step  in  current  layer. 

delx  =  rout  -  xsum 
ab  =  aa  +  delx  *  griml 

zr  =  zrt(i)  -  (aa2  -  ab  **  2)  /  griml2 
dxda  =  dxda  +  (a  /  ab  -  a  /  aa)  /  griml 
pld  =  pld  +  ( (rm(i)  -  aa2  /  2.)  *  (ab  -  aa)  +  & 

{ab  **  3  -  aa2  *  aa)  /  3.)  /  griml 
goflag  =  .FALSE. 

END  IF 
ELSE 

!  Downgoing  ray  turns  around  in  current  layer. 

delx  =  -aa  /  griml 
xtemp  =  xsum  +  delx 
IF  (xtemp  .LT.  rout)  THEN 

!  Full  step  in  downgoing  segment. 

xsum  =  xtemp 
xtemp  =  xsum  +  delx 
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IF  (xtemp  .LT.  rout)  THEN 

!  Full  step  in  upgoing  segment. 

xsum  =  xtemp 
ab  =  -aa 

ELSE 

!  Last  step  is  in  upgoing  segment. 

zmin  =  zrt(i)  -  aa2  /  griml2 
delx  =  rout  -  xsum 
ab  =  delx  *  gr{i  -  1) 
delzr  =  ab  **  2  /  griml2 
zr  =  zmin  +  delzr 
goflag  -  .FALSE. 

END  IF 
ELSE 

!  Last  step  is  in  downgoing  segment. 

delx  ~  rout  -  xsum 

ab  =  aa  +  delx  *  griml 

delzr  =  (aa2  -  ab  **  2)  /  griml2 

zr  =  zrt(i)  -  delzr 

goflag  =  .FALSE. 

END  IF 

!  Following  section  applies  to  all  downgoing  rays  that  turn  around. 

dxda  -  dxda  +  (a  /  ab  -  a  /  aa)  /  griml 

pld  -  pld  +  ((rm(i)  -  aa2  /  2.)  *  (ab  -  aa)  +  & 

(ab  **  3  -  aa2  *  aa)  /  3.)  /  griml 
aa  =  ab 

END  IF 
END  IF 
END  DO 

!  Terminal  elevation  angle  ab  cannot  be  zero. 

IF  (ABS(ab)  .LT.  l.E-10)  ab  =  SIGN(1.E-10,  ab) 

END  subroutine  raytrace 


A.2.10  Subroutine  REFINTER 


*************************  SUBROUTINE  REFINTER  ***************************** 
Module  Name:  REFINTER 

Module  Security  Classification:  UNCLASSIFIED 

Purpose:  Interpolates  vertically  and  horizontally  on  the  refractivity 
profiles . 

Version  Number:  1.0 
INPUTS: 

Argument  List:  ISTP,  RANGE 

Common:  FTER,  HMINTER,  IS,  LVLP,  NPROF,  RV2,  YCURM 
Public:  HMSL ( , ) ,  REFMSL ( ,  ) ,  RNGPROF ( ) 
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!  OUTPUTS: 

]  Argument  List:  NONE 

i  Common:  IS,  LVLEP,  RV2 

!  Public:  HTDUM ( ) ,  PROFINT { ) ,  REFDUM ( ) 

!  Modules  Used:  APM__MOD 

!  Calling  Routines:  PESTEP 

!  Routines  Called: 

i  APM  Specific:  REMDUP,  PROFREF,  INTPROF 
!  Intrinsic:  NONE 

1  GLOSSARY:  See  universal  glossary  for  common  variables. 

!  Input  Variables : 

i  ISTP  =  Current  output  range  step  index. 

i  RANGE  -  Range  for  profile  interpolation. 

!  Output  Variables : NONE 

!  Local  Variables: 

'  ICEK  =  Used  to  set  REFDUM ()  and  HTDUM ()  to  the  last  input  profile 

j  specified  by  REFMSL ( , NPROF) ,  HMSL ( , NPROF)  if  RANGE  is 

i  beyond  range  of  last  input  profile, 

i  RV1  -  Range  of  previous  user-input  profile. 

subroutine  refinter(  istp,  range  } 

use  apm_mod 

save  j ,  rvl,  ichk 
data  j,  rvl  /  0,  0.  / 

!  One-line  interpolation  function 

pint {  pi,  p2  )  =  pi  +  fv  *  (  p2  -  pi  ) 

if (  istp  .eq.  1  )  ichk  =  0 

if ( (  .not.  fter  )  .and.  (  ichk  .eq.  1  ))  return 
lvlep  =  Ivlp 

j  if  there  is  a  range-dependent  refractivity  profile  then  interpolate 
I  horizontally  using  the  two  surrounding  profiles  at  range  RANGE  with  all 
!  duplicate  levels. 

if ( (  nprof  .gt.  1  )  .and.  (  ichk  .eq.  0  ))  then 
if(  range  .gt.  rngprof (  nprof  )  )  then 
ichk  =  1 
do  i  =  0,  lvlep 

refdum(i)  =  refmsl (i, nprof ) 
htdum(i)  =  hmsl (i, nprof ) 
end  do 
else 

IF (  range  .gt.  rv2  )  then 
j  =  is 
IS=IS+1 
rvl=rv2 

rv2=rngprof (IS) 
end  if 

FV= ( range-rvl ) / (rv2-rvl) 
do  i  -  0,  lvlep 

refdum(i)  =  pint (  refmsl ( i, j ) ,  refmsl(i,is)  ) 
htdum(i)  =  pint (  hmsl{i,j),  hmsl (i, is)  ) 
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end  do 
end  if 

!  Now  remove  all  duplicate  levels  with  LVLEP  now  being  the  #  of  points  in  the 
!  profile  at  range  RANGE. 

call  remdup 

call  profref (  hminter,  0  ) 

!  At  this  point  REFDUM ( )  and  HTDUM ( ) ,  also  HREF ( )  and  REFREF ( ) ,  are 
!  referenced  to  HMINTER. 

end  if 

!  Using  BS  method  must  determine  height  and  M-unit  profiles  relative  to 
!  ground,  where  YCURM  is  now  the  height  of  the  local  ground  above  the 
!  reference  height  HMINTER. 

call  profref (  ycurm,  1  ) 

!  Interpolate  vertically  with  height.  PROFINT  is  now  an  N-point  (N=2**NFFT) 

!  array  containing  the  interpolated  M-unit  values  for  the  refractivity  at 
!  range  RANGE. 

call  intprof 

end  subroutine  refinter 


A.2.11  Subroutine  REMDUP 


i  *************************  SUBROUTINE  REMDUP  ***************************** 
!  Module  Name:  REMDUP 

!  Module  Security  Classification:  UNCLASSIFIED 
!  Purpose:  Removes  duplicate  refractivity  levels  in  profile. 

!  Version  Number:  1.0 
!  INPUTS: 

*  Argument  List:  NONE 
!  Common:  LVLEP 

!  Public:  HTDUM (),  REFDUM () 

!  OUTPUTS: 

!  Argument  List:  NONE 
!  Common:  LVLEP 

!  Public:  HTDUM () ,  REFDUM () 

l  Modules  Used:  APM_MOD 

!  Calling  Routines:  REFINIT,  REFINTER 

!  Routines  Called: 

!  A PM  Specific:  NONE 

!  Intrinsic:  ABS 

!  GLOSSARY:  See  universal  glossary  for  common  variables. 

!  Input  Variables:  NONE 
l  Output  Variables:  NONE 
subroutine  remdup 
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use  apm_mod 

!  Remove  all  duplicate  levels  in  interpolated  profile 


do  while (  i  .It.  lvlep  ) 
htl  =  htdum(i) 
ht2  =  htdum(i+l) 

if (  abs (htl-ht2)  .le.  l.e-3  )  then 
lvlep  =  lvlep  -  1 
do  j  =  i,  lvlep 
jpl  =  j  +  1 
htdum(j)  =  htdum { jpl ) 
refdum(j)  =  refdum(jpl) 
end  do 
i  =  i  -  1 
end  if 
i  -  i  +  1 
end  do 

end  subroutine  remdup 


A.2.12  Subroutine  ROCALC 


SUBROUTINE  ROCALC  ************************* 


AUTHOR: 

Herb  Hitney 

Space  and  Naval  Warfare  Systems  Center  San  Diego 
Tropospheric  Branch,  Code  D883 
ADDRESS: 

SPAWARSYSCEN  SAN  DIEGO  D883 
49170  PROPAGATION  PATH 
SAN  DIEGO  CA  92152-7385 
Tel:  619-553-1428  DSN  553-1428 
Fax:  619-553-1417  DSN  553-1417 
Email:  herb@spawar.navy.mil 

With  minor  code  modifications  by: 

Author:  Amalia  E.  Barrios 

SPAWARSYSCEN  SAN  DIEGO  D883 
49170  Propagation  Path 
San  Diego,  CA  92152-7385 
e-mail:  barrios@spawar .navy.mil 
phone:  (619)  553-1429 
fax:  (619)  553-1417 

Module  Name :  ROCALC 

Module  Security  Classification:  UNCLASSIFIED 

PURPOSE:  Computes  and  stores  ray-optics  components  as  needed 
to  "span"  range  X.  Arrays  use  the  index  K,  where  the  elevation 
angle  in  radians  at  the  origin  is  GAMMA  =  K/1000.  XROP  and  XRON 
are  the  ranges  less  and  greater  than  X,  respectively.  IROP  and 
IRON  are  indices  of  the  component  arrays  that  correspond  to  XROP 
and  XRON.  The  arrays  are:  DMAGSQ ( , )  and  RMAGSQ ( , )  =  the  magnitude 
squared  of  the  direct  and  reflected  rays;  and  OMEGA (,)  =  phase  angle 
in  rad  between  direct  and  reflected  rays.  Ray-optics  components 
are  derived  from  calls  to  sub  raytrace.  Newton1 s  method  of 
iteration  is  used  to  find  the  direct  and  reflected  elevation 
angles  alphad  &  alphar.  Parallel-ray  approximations  are  used  as 
starting  values  for  the  highest  value  of  K,  otherwise  the  most 
recent  values  of  ALPHAD  &  ALPHAR  are  used  to  start  the  iteration. 
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!  Note  that  KMINP  and  KMINN  are  the  minimum  K  values  for  good 
!  solutions  at  ranges  XROP  and  XRON,  and  KMAX  is  the  maximum  K 
!  needed  to  exceed  HTLIM  at  both  XROP  and  XRON. 

! Version  Number:  1.0  modified  from 

!  RPO  1.15B  DATE:  19  August  1996 

!  INPUTS: 

!  Argument  List:  X 

!  Common:  BW,  FKO,  HTLIM,  HTYDIF ,  IRON,  IROP,  KMINN,  PSILIM,  XRON,  XROP, 
!  YFREF,  ZTOL 

!  Parameters:  PI 

!  OUTPUTS: 

!  Argument  List:  NONE 

!  Common:  DELXRO ,  DMAGSQ ( , ) ,  HTYDIF,  IRON,  IROP,  KMAX,  KMINN, 

!  KMINP,  OMEGA { , ) ,  RMAGSQ ( , )  ,  XRON,  XROP 

I  SAVE:  DALPHA,  FRACRO 

!  Modules  used:  APM_MOD 

!  CALLING  ROUTINES:  ROM 

!  ROUTINES  CALLED: 

!  APM  specific:  ANTPAT,  GETREFCOEF,  RAYTRACE 
!  Intrinsic:  ABS,  AMAX1 ,  INT 

!  GLOSSARY:  See  universal  glossary  for  common  variables. 

!  Input  Variables : 

!  X  **  Current  output  range  in  meters 

!  Output  Variables :  NONE 
!  Local  Variables: 

!  ALPHAR  =  reflected  ray  source  elevation  angle  in  radians 

!  BETAD  -  direct  ray  terminal  elevation  angle  in  radians 

!  BETAR  -  reflected  ray  terminal  elevation  angle  in  radians 

!  DALPHA  =  one  half  the  antenna  beamwidth  in  radians 

!  DXDAD  =  direct  ray  derivative  of  range  w.r.t.  elev  angle 

!  DXDAR  -  reflected  ray  derivative  of  range  w.r.t.  elev  angle 

!  DZDAD  =  direct  ray  derivative  of  height  w.r.t.  elev  angle 

!  DZDAR  =  reflected  ray  derivative  of  height  w.r.t.  elev  angle 

!  FRACRO  =  RO  range  step  fraction  (0.  to  .25) 

!  FSQD  =  propagation  factor  squared  for  direct  ray 

!  FSQR  =  propagation  factor  squared  for  reflected  ray 

!  GMAXDA  =  term  used  in  computing  RO  range  step  fraction 

!  ITER  -  iteration  counter  (1  to  10) 

!  ITYPE  *  ray  type  flag  {0  =  direct,  1  =  reflected) 

!  PFACD  =  antenna  pattern  factor  for  direct  ray 

!  PFACR  =  antenna  pattern  factor  for  reflected  ray 

!  PHI  =  phase  lag  of  reflection  coefficient  in  radians 

!  PLDD  =  path  length  difference  from  x  for  direct  ray 

!  PLDR  -  path  length  difference  from  x  for  reflected  ray 

!  PSI  -  grazing  angle  in  radians 

!  REFCOEF  =  complex  reflection  coefficient 

!  RMAG  ~  magnitude  of  reflection  coefficient 

!  ZD  =  terminal  height  of  direct  ray  in  meters 

!  ZK  =  height  of  kth  RO  index  in  meters 

!  ZR  =  terminal  height  of  reflected  ray  in  meters 

SUBROUTINE  rocalc(x) 

use  apm_mod 

complex  refcoef 
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SAVE  dalpha,  fracRO 

data  deg  /  .01745  /  !1  degree  in  radians 

!  Test  if  new  RO  calculations  are  needed.  First  time  is  indicated 
!  by  IROP  =  -1 

DO  WHILE  (x  .GE.  xROn) 

IF  (iROp  .EQ.  -1)  THEN 
iROp  =  1 
iROn  =  0 
xROn  =  x 
kmax  =  88 
kminp  =  0 
kminn  -  0 
fracRO  =  0. 
dalpha  “  bw  /  2. 

htydif  =  htlim  -  yfref 
IF  (dalpha  .GT.  deg)  dalpha  =  deg 
ELSE 

xROp  «  xROn 
iROp  =  1  -  iROp 
iROn  =  1  -  iROn 
kminp  =  kminn 
kminn  =  0 

kmax  =  INT{1000.  *  htydif  /  xROp)  +  2 
IF  (kmax  .GT.  88)  kmax  =  88 
IF  (fracRO  .LT.  .25)  THEN 

gmaxda  =  AMAX1((-001  *  kmax)  /  dalpha,  5.0) 
fracRO  =  1.  /  (gmaxda  -  1.) 

END  IF 

delxRO  =  fracRO  *  xROp 
xROn  =  xROp  +  delxRO 
END  IF 

i  set  starting  conditions  corresponding  to  highest  angle, 
i  Assume  parallel  direct  &  reflected  rays  to  start.  Note  DZDAD 
i  and  DZDAR  are  the  direct  and  reflected  ray  derivatives  of 
!  height  w.r.t.  elevation  angle  at  the  source. 

alphad  =  .001  *  kmax 
alphar  =  -alphad 

CALL  raytrace (xROn,  alphad,  ZD,  BETAD,  DXDAD,  PLDD, 
dzdad  =  -betad  *  dxdad 

CALL  raytrace (xROn,  alphar,  ZR,  BETAR,  DXDAR,  PLDR, 
dzdar  =  -betar  *  dxdar 

I  Main  loop  to  compute  all  RO  components  at  height  ZK. 
k  =  kmax 

DO  WHILE  (k  .GE.  kminn) 

IF  (k  .GT.  0)  THEN 

zk  =  xROn  *  .001  *  k 

I  Loop  to  find  direct  ray  and  components  at  ZK. 
iter  -  0 

DO  WHILE  (iter  .LT.  10) 
iter  =  iter  +  1 

alphad  =  alphad  -  (zd  -  zk)  /  dzdad 
CALL  raytrace  (xROn,  alphad,  ZD,  BETAD,  DXDAD,  PLDD,  PS I, 
dzdad  =  -betad  *  dxdad 

!  Test  for  direct  ray  not  being  found. 

IF  ( (ABS (dzdad)  .LT.  l.E-6)  • OR.  (itype  .EQ.  1) )  THEN 


PSI, 

ITYPE) 

PSI, 

ITYPE) 

ITYPE) 
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kminn  =  k  +  1 
iter  =  10 
END  IF 

!  Test  for  convergence  of  direct  ray. 

IF  (ABS ( zk  -  zd)  .LT.  ztol)  iter  =  10 
END  DO 

!  Loop  to  find  reflected  ray  and  components  at  ZK. 
iter  =  0 

DO  WHILE  (iter  .LT.  10) 
iter  =  iter  +  1 

alphar  =  alphar  -  (zr  -  zk)  /  dzdar 

CALL  raytrace (xROn,  alphar,  ZR,  BETAR,  DXDAR,  PLDR,  PSI,  ITYPE) 
dzdar  =  -betar  *  dxdar 

!  Test  for  reflected  ray  not  being  found. 

IF  ((ABS (dzdar)  .LT.  l.E-6)  .OR. . (itype  .EQ.  0))  THEN 
kminn  =  k  +  1 
iter  -  10 
END  IF 

!  Test  for  convergence  of  reflected  ray. 

IF  (ABS (zk  -  zr)  .LT.  ztol)  iter  =  10 
END  DO 

!  Test  for  grazing  angle  less  than  limiting  value. 

IF  (psi  .LT.  psilim)  kminn  =  k 

!  Compute  magnitude  of  direct  and  reflected  rays 
!  based  on  ray  focusing. 

fsqd  =  ABS (xROn  /  dzdad) 
fsqr  =  ABS (xROn  /  dzdar) 

!  Adjust  magnitude  of  direct  and  reflected  rays  based  on 
!  antenna  patterns  and  reflection  coefficient. 

CALL  antpat (  alphad,  PFACD  ) 

CALL  antpat (  alphar,  PFACR  ) 

CALL  getref coef (  psi,  REFCOEF,  RMAG,  RPHASE  ) 

fsqd  =  fsqd  *  pfacd  **  2 

fsqr  =  fsqr  *  (pfacr  *  rmag)  **  2 

!  Store  ray-optics  components  in  proper  arrays.  Phase  lag,  OMEGA ( , ) , 

!  is  computed  based  on  total  path  length  difference  of  the  two  rays 
!  plus  the  reflection  coefficient  phase  lag,  PHI. 

dmagsq(iROn,  k)  =  fsqd 
rmagsq(iROn,  k)  =  fsqr 

omega (iROn,  k)  =  (pldr  -  pldd)  *  fko  +  rphase 

!  Force  field  to  zero  at  the  surface  by  making  magnitudes  equal 
!  and  phase  lag  PI. 

ELSE 

dmagsq(iROn,  0)  =  fsqd 
rmagsq(iROn,  0)  -  fsqd 
omega (iROn,  0)  =  pi 
END  IF 

!  Decrement  K  index. 
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k  =  k  -  1 


END  DO 

i  End  of  loop  that  advances  ray  optics  solution  to  XRON. 
END  DO 

END  subroutine  rocalc 


A.2.13  Subroutine  ROLOSS 


**********************  SUBROUTINE  ROLOSS 


AUTHOR: 

Herb  Hitney 

Space  and  Naval  Warfare  Systems  Center  San  Diego 
Tropospheric  Branch,  Code  D883 
ADDRESS: 

SPAWARSYSCEN  SAN  DIEGO  D883 
49170  PROPAGATION  PATH 
SAN  DIEGO  CA  92152-7385 
Tel:  619-553-1428  DSN  553-1428 
Fax:  619-553-1417  DSN  553-1417 
Email:  herb@spawar.navy.mil 

With  minor  executable  code  modifications  by: 

Author:  Amalia  E.  Barrios 

SPAWARSYSCEN  SAN  DIEGO  D883 
49170  Propagation  Path 
San  Diego,  CA  92152-7385 
e-mail :  barrios @ spawar . navy . mil 
phone:  (619)  553-1429 
fax:  (619)  553-1417 

Module  Name:  ROLOSS 

Module  Security  Classification:  UNCLASSIFIED 

PURPOSE:  Sets  propagation  loss  in  centibels  at  range  ROUT  for  j  from 
JMAX  to  JMIN  based  on  3  arrays  obtained  from  sub  ROCALC:  DMAGSQ ( , ) , 
RMAGSQ { , ) ,  and  OMEGA ( , ) .  The  3  arrays  are  stored  in  order  of  (i,k), 
where  i  =  0  indicates  components  at  range  XROP  (<ROUT) ,  and  i  =  1 
indicates  components  at  range  XRON  (>ROUT) .  K  is  the  origin  ray 
angle  integer  index  in  mrad  [i.e.  1000  *  angle].  KMINP  and  KMINN 
are  the  minimum  good  values  of  K  at  XROP  and  XRON,  and  KMAX  is  the 
maximum  value  of  K  where  good  components  are  stored  at  both  XROP 
and  XRON. 

Version  Number:  1.0  modified  from 

RPO  1.15B  DATE:  19  August  1996 


INPUTS  : 

Argument  list:  ISTP,  JMAX,  JMIN,  ROUT 
Common:  DELXRO,  DMAGSQ ( , ) ,  IRON,  IROP,  KMAX,  KMINN, 
KMINP,  OMEGA ( , ) ,  RMAGSQ ( , )  ,  XROP 
Public:  FSLRO,  ZRO  ( ) 

OUTPUTS : 

Argument  list:  LOSSCB 
Common :  NONE 

SAVE:  DANGHI,  DANGLO,  DFSDHI,  DFSDLO,  DFSRHI ,  DFSRLO 
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! Modules  Used:  APM_MOD 

!  CALLING  ROUTINES:  ROM 

!  ROUTINES  CALLED: 

!  APM  Specific:  NONE 

!  Intrinsic:  ABS,  ALOGIO,  AMAX1 ,  COS,  INT,  NINT,  SQRT 
!  GLOSSARY:  See  universal  glossary  for  common  variables. 

!  Input  Variables: 

!  ISTP  =  Current  output  range  step  index. 

!  JMAX  =  Ending  index  within  LOSSCB ( )  of  RO  loss  values. 

!  JMIN  =  Starting  index  within  LOSSCB {)  of  RO  loss  values. 

!  ROUT  =  Current  output  range  in  meters. 

!  Output  Variables: 

!  LOSSCB ()  =  Array  containing  propagation  loss  values  in 

!  centibels  vs.  height,  at  each  output  range  ROUT. 

1  I.e.,  LOSSCB (J)  =  propagation  loss  *  10  at  output 

!  height  ZOUT  -  J*DZOUT.  All  loss  values  returned 

!  are  referenced  to  height  HMIN . 

!  Local  Variables: 

!  ANG  =  phase  angle  for  computing  FSQ  in  radians 

!  ANGHI  =  phase  angle  above  desired  point  in  radians 

!  ANGLO  =  phase  angle  below  desired  point  in  radians 

!  DANGHI  =  diff.  in  phase  angle  along  RO  step  above  desired  point 

!  DANGLO  -  diff.  in  phase  angle  along  RO  step  below  desired  point 

!  DFSDHI  =  diff.  in  dir.  mag* *2  along  RO  step  above  desired  point 

!  DFSDLO  =  diff.  in  dir.  mag* *2  along  RO  step  below  desired  point 

!  DFSRHI  =  diff.  in  ref.  mag**2  along  RO  step  above  desired  point 

!  DFSRLO  -  diff.  in  ref.  mag* *2  along  RO  step  below  desired  point 

!  FK  =  floating  value  of  K  index  at  jth  output  point 

!  FFAC  =  propagation  factor  in  dB 

!  FSDHI  =  direct  ray  magnitude  squared  above  desired  point 

!  FSDLO  =  direct  ray  magnitude  squared  below  desired  point 

!  FSQ  =  propagation  factor  squared  at  desired  point 

!  FSQD  =  direct  ray  magnitude  squared  at  desired  point 

!  FSQR  -  reflected  ray  magnitude  squared  at  desired  point 

!  FSRHI  -  reflected  ray  magnitude  squared  above  desired  point 

!  FSRLO  =  reflected  ray  magnitude  squared  below  desired  point 

I  KHI  =  K  index  above  desired  point 

i  KLO  -  K  index  below  desired  point 

!  KLOTMP  =  temporary  KLO  value 

!  RATION  =  fraction  of  one  K  index  (0.  to  1.) 

!  RAT I OX  -  fraction  of  current  RO  range  step  (0.  to  1.) 

SUBROUTINE  roloss  {  istp,  rout,  jmin,  jmax,  LOSSCB  ) 

us e  aprnjnod 

INTEGER*2  losscb(0:*) 

SAVE  danghi,  danglo,  dfsdhi,  dfsdlo,  dfsrhi,  dfsrlo 

!  Compute  free-space  loss  term  and  ratio  of  distance  from  last  RO 
!  range  to  RO  range  increment.  Set  starting  value  of  KLO  to  KMAX . 

ratiox  =  (rout  -  xROp)  /  delxRO 

klo  ~  kmax 

fkro  =  1000.  /  rout 

1  Loop  to  compute  loss  for  all  J  from  JMAX  to  JMIN. 

DO  j  —  jmax,  jmin,  -1 
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!  Compute  floating  (non-integer)  value  of  K  corresponding  to  J,  and 
!  integer  value  of  K  just  below  floating  K.  Test  to  see  if  this  value 
!  is  less  than  the  previous  value  of  KLO. 

fk  =  fkro  *  zro(j) 
klotmp  =  INT(fk) 

IF  (klotmp  .LT.  klo)  THEN 

!  Set  new  KLO  and  KHI . 

klo  =  klotmp 
khi  =  klo  +  1 

t  If  KLO  is  greater  than  or  equal  to  the  minimum  K  at  range  XROP 

[  and  XRON,  then  compute  new  differences  in  components  between 

i  XRON  and  XROP  at  index  KLO.  Otherwise  old  values  will  be  used. 

IF  ((klo  .GE.  kminp)  .AND.  (klo  .GE.  kminn) )  THEN 
dfsdlo  =  dmagsq (iROn,  klo)  -  dmagsq (iROp,  klo) 

dfsrlo  =  rmagsq (iROn,  klo)  -  rmagsq (iROp,  klo) 

danglo  =  omega (iROn,  klo)  -  omega (iROp,  klo) 

END  IF 

I  If  KHI  is  greater  than  or  equal  to  the  minimum  K  at  range  XROP 

I  and  XRON,  then  compute  new  differences  in  components  between 

I  XRON  and  XROP  at  index  KHI.  Otherwise  old  values  will  be  used. 

IF  ((khi  .GE.  kminp)  .AND.  (khi  .GE.  kminn))  THEN 
dfsdhi  =  dmagsq (iROn,  khi)  -  dmagsq (iROp,  khi) 

dfsrhi  =  rmagsq (iROn,  khi)  -  rmagsq (iROp,  khi) 

danghi  ~  omega (iROn,  khi)  -  omega (iROp,  khi) 

END  IF 

i  jf  KLO  is  greater  than  or  equal  to  the  minimum  K  at  XROP,  then 
!  compute  new  components  at  range  ROUT  at  index  KLO  by  linear  inter— 

!  polation  from  range  XROP  at  KLO.  Otherwise  interpolate  backwards 
!  from  XRON  at  KLO. 

IF  (klo  .GE.  kminp)  THEN 

fsdlo  =  dmagsq (iROp,  klo)  +  ratiox  *  dfsdlo 

fsrlo  «  rmagsq (iROp,  klo)  +  ratiox  *  dfsrlo 

anglo  =  omega  (iROp,  klo)  +  ratiox  *  danglo 

ELSE 

ratioxml  **  1.  -  ratiox 

fsdlo  =  dmagsq (iROn,  klo)  +  ratioxml  *  dfsdlo 
fsrlo  =  rmagsq (iROn,  klo)  +  ratioxml  *  dfsrlo 

anglo  =  omega  (iROn,  klo)  +  ratioxml  *  danglo 

END  IF 

!  If  KHI  is  greater  than  or  equal  to  the  minimum  K  at  XROP,  then 
!  compute  new  components  at  range  ROUT  at  index  KHI  by  linear  inter- 
!  polation  from  range  XROP  at  KHI.  Otherwise  interpolate  backwards 
!  from  XRON  at  KHI. 

IF  (khi  .GE.  kminp)  THEN 

fsdhi  «  dmagsq (iROp,  khi)  +  ratiox  *  dfsdhi 
fsrhi  =  rmagsq (iROp,  khi)  +  ratiox  *  dfsrhi 

anghi  -  omega  (iROp,  khi)  +  ratiox  *  danghi 

ELSE 

ratioxml  =  1.  -  ratiox 

fsdhi  =  dmagsq (iROn,  khi)  +  ratioxml  *  dfsdhi 

fsrhi  «  rmagsq (iROn,  khi)  +  ratioxml  *  dfsrhi 

anghi  «  omega  (iROn,  khi)  +  ratioxml  *  danghi 

END  IF 

END  IF 
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ratiok  =  fk  -  klo 

fsqd  =  fsdlo  +  ratiok  *  (fsdhi  -  fsdlo) 

fsqr  =  fsrlo  +  ratiok  *  (fsrhi  -  fsrlo) 

ang  =  anglo  +  ratiok  *  (anghi  -  anglo) 

!  Compute  square  of  propagation  factor. 

fsq  =  ABS ( fsqd  +  fsqr  +  2.  *  SQRT (ABS ( fsqd  *  fsqr))  *  COS (ang)) 

!  Convert  FSQ  to  propagation  factor  in  dB.  Limit  to  -200  dB. 

ffac  =  10.  *  aloglO (amaxl  (l.e-25,  fsq)) 

!  Compute  and  store  propagation  loss  in  terms  of  closest 
!  integer  centibel  (cB) . 

dloss  =  fslr(istp)  -  ffac 
losscb(j)  =  nint (  10.  *  dloss  ) 

END  DO 

END  subroutine  roloss 


A.2.14  Subroutine  ROM 

i *************************  SUBROUTINE  ROM  ************************** 
’Module  Name:  ROM 

! Module  Security  Classification:  UNCLASSIFIED 

I  Purpose:  This  routine  serves  as  a  one-call  routine  for  the  ray  optics 
!  model.  It  performs  the  ray  optics  calculations  by  calls 

!  to  ROCALC  and  determines  the  loss  at  specified  height  output 

!  points  by  calls  to  ROLOSS. 

’Version  Number:  1.0 

! INPUTS: 

!  Argument  List:  ISTP,  ROUT,  JRS,  JRE 
!  Common :  NONE 

! OUTPUTS: 

!  Argument  List:  MLOSS 
!  Common:  NONE 

! Modules  Used:  NONE 

! Calling  Routines: 
i  APM  Specific:  APMSTEP,  XOSTEP 
!  Intrinsic:  NONE 

{Routines  called:  ROCALC,  ROLOSS 

{GLOSSARY:  See  universal  glossary  for  parameters. 

!  Input  Variables: 

!  ISTP  =  Current  output  range  step  index. 

!  JRS  =  Starting  index  within  MLOSS ()  of  RO  loss  values. 

!  JRE  =  Ending  index  within  MLOSS ()  of  RO  loss  values, 

i  ROUT  -  Current  output  range  in  meters. 

{  Output  Variables: 

!  MLOSS ()  =  Array  containing  propagation  loss  values  in 
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i  centibels  vs.  height,  at  each  output  range  ROUT, 

i  i . e . ,  MLOSS(J)  -  propagation  loss  *  10  at  output 

!  height  ZOUT  =  J*DZOUT.  All  loss  values  returned 

«  are  referenced  to  height  HMIN. 

!  Local  Variables:  NONE 

subroutine  rom(  istp,  rout,  MLOSS,  jrs,  jre  ) 
integer*2  mloss(0:*) 
call  rocalc (  rout  ) 

call  roloss {  istp,  rout,  jrs,  jre,  MLOSS  ) 
end  subroutine  rom 


A.2.1 5  Subroutine  SAVEPRO 


SUBROUTINE  SAVEPRO  ************************* 


Module  Name :  SAVEPRO 

Module  Security  Classification:  UNCLASSIFIED 

Purpose:  Saves  the  refractivity  profiles  at  each  range  step  from  the  top  of 
the  PE  region  to  the  maximum  user-specified  height.  For  use  only 
when  using  the  hybrid  model. 

Version  Number:  1.0 


INPUTS: 

Argument  List:  NONE 
Common:  IZ,  LVLEP,  ZLIM 
Public:  HTDUM ( ) ,  RE FDUM ( ) 

OUTPUTS: 

Argument  List:  NONE 
Common :  NONE 

Public:  GRAD ( , ) ,  HTR ( , ) ,  LVL { ) 

Modules  Used:  APM__MOD 

Calling  Routines:  FZLIM 

Routines  Called: 

APM  Specific:  NONE 
Intrinsic:  ABS,  SIGN 

GLOSSARY:  See  universal  glossary  for  common  variables. 

Input  Variables : 

R  =  Current  PE  range  in  meters 

Output  Variables :  NONE 

Local  Variables: 

G  =  Gradient  of  current  refractivity  profile  level. 

NEWL  =  Number  of  levels  in  refractivity  profile  from  top  of  PE 
region  to  maximum  height. 


subroutine  savepro 
use  apm_mod 

1  Determine  at  what  index  of  current  profile  to  begin  storing  from  height 
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!  ZLIM. 


i  =  0 

do  while (  zlim  .gt.  htdum(i)  ) 
i  =  i  +  1 
end  do 
i  =  i  -  1 
newl  -  -1 

!  Store  gradients  and  height  levels  from  this  index  level  -  I  to  LVLEP-1. 

do  j  =  i,  lvlep-1 
jpi  =  j  +  i 
rml  =  refdum(j) 
rm2  =  refdum(jpl) 
hi  =  htdum(j) 
h2  =  htdum(jpl) 

g  =  (  rm2  -  rml  )  /  (  h2  -  hi  ) 

if (  abs (  g  )  .It.  l.e-3  )  g  =  sign(  1.,  g  )*l.e-3 
newl  =  newl  +  1 

grad (newl, iz)  =  g  *  l.e-6  !  for  ray  trace  formulas 

htr(newl,iz)  -  hi 
end  do 

newl  =  newl  +  1 
htr(newl,iz)  =  htdum(lvlep) 

Ivl(iz)  =  newl 

end  subroutine  savepro 


A.2.16  Subroutine  SPECEST 

i  ********★**★*★■*■*■*★★•*■*■*■*■****  SUBROUTINE  SPECEST  ************************* 

!  Module  Name:  SPECEST 

!  Module  Security  Classification:  UNCLASSIFIED 

!  Purpose:  Determines  the  outward  propagation  angle  THOUT  based  on  spectral 
!  estimation  of  the  topmost  layer  of  the  field  still 

!  within  the  "good”  part  of  the  transform.  Looks  at  the  field 

!  from  height=JZLIM*DELZ  to  height^ { JZLIM-NPNTS) *DELZ . 

!  Version  Number:  1.0 

!  INPUTS: 

!  Argument  List:  NONE 

!  Common:  DELZ,  JZLIM,  LNP,  NP34,  NPNTS,  NS,  XOCON,  YCUR 
!  Public:  FILTP(),  U() 

!  OUTPUTS: 

!  Argument  List:  THOUT 
!  Common :  NONE 

!  Public:  SPECTRO,  XP  ( )  ,  YP  ( ) 

!  Modules  Used:  APM_MOD 
!  Calling  Routine:  FZLIM 
!  Routines  Called: 

l  APM  Specific:  SINFFT ( in  module  APM_MOD ) 

!  Intrinsic:  ALOGIO,  AMAX1,  ASING,  FLOAT,  IMAG,  NINT,  REAL,  SQRT 
!  GLOSSARY:  See  universal  glossary  for  common  variables. 

J  Input  Variables:  NONE 
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!  Output  Variables:  t  t 

!  THOUT  =  outward  propagation  angle  in  radians  at  top  of  PE  height 

I  region. 

!  Local  Variables: 

!  AMP  =  Field  magnitude  with  lower  limit  of  l.e-10. 

i  ATTN  =  Filter  factor  —  used  for  filtering  field  before  transforming, 

i  IPEAK  =  Bin  #  in  SPECTR {)  corresponding  to  the  peak  magnitude, 

j  K  =  Bin  #  at  which  to  start  storing  PE  field.  Points  from  K  to 

i  K-NPNTS  are  stored  in  XP()  and  YP ( ) . 

!  PAVG  =  3-pt  average  magnitude. 

1  PEAK  =  Peak  magnitude. 

1  PP  =  Field  magnitude. 

subroutine  specest  (  THOUT  ) 

use  apm_mod 

!  Store  upper  NPNTS  of  U()  in  XP()  and  YP()  . 

k  =  jzlim  -  nint  (  ycur  /  delz  ) 
do  i  =  0,  npnts-1 

xp (i)  =  real (u (k) ) 
yp  (i)  =  imag  (u  (k)  ) 
k  =  k  -  1 
end  do 

do  i  =  np34 ,  npnts 

attn  «  filtp (i-np34) 
xp ( i ) =at tn*xp ( i ) 
yp (i) =attn*yp (i) 
end  do 

!  Zero  pad. 

do  i  =  npnts+1,  ns-1 
xp(i)  =  0. 
yp  (i)  =0. 
end  do 

!  Transform  to  obtain  spectral  field 

call  sinfft(  lnp,  xp  ) 
call  sinfft (  lnp,  yp  ) 

!  Determine  amplitude 

do  i  =  0,  ns-1 
xpi  ~  xp(i) 

ypi  =  yp(i) 

pp  =  sqrt (  xpi*xpi  +  ypi*ypi  ) 
amp  =  amaxl (1 . e-10,  pp) 
spectr(i)  **  10.*  aloglO(amp) 
end  do 

!  Perform  a  3-point  average  and  look  for  amplitude  peak. 

ipeak  -  0 
peak  =  -200. 
do  i  =  2,  ns-1 

pi  -  spectr(i-l) 
p  =  spectr (i) 
p2=  spectr (i+1) 
pavg  =  (pi  +  p  +  p2)  /  3. 
if (  pavg  .gt.  peak)  then 
ipeak  =  i 
peak  =  pavg 
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end  if 
end  do 

!  Determine  angle  from  bin#  IPEAK  where  peak  occurs, 
thout  =  asin(  xocon  *  float (ipeak)  ) 
end  subroutine  specest 


A.2.17  Subroutine  TROPO 

, **************************  SUBROUTINE  TROPO  *************************** 


!  Module  Name:  TROPO 

!  Module  Security  Classification:  UNCLASSIFIED 

!  Purpose:  This  routine  determines  the  loss  due  to  troposcatter  and 
!  computes  the  appropriate  loss  from  troposcatter  loss  and  the 

!  propagation  loss  beyond  the  radio  horizon. 

i  Version  Number:  1.0 

]  INPUTS: 

!  Argument  List:  ISTP,  JS,  JE 

!  Common:  AEK2,  FTER,  ITPA,  JT1,  JT2,  KTR1,  R1T,  RF,  THETA1S, 

!  TLSTS 

!  Public:  ADI  0  /  ADIF  ( )  ,  D2S  0  ,  RDT  ( )  ,  RLOGO  ( )  ,  RLOSSO,  RNGOUT  ( )  ,  TH1  ( )  , 

!  THETAO  ( ) ,  THETA2S  ( ) ,  TX  0  ,  TY  ( ) ,  ZOUT ( ) 

!  Data:  EK 

!  OUTPUTS: 

!  Argument  List:  NONE 
!  Common:  NONE 

1  Public:  RLOSSO 

!  Modules  Used:  APM_MOD 

!  Calling  Routines:  CALCLOS,  EXTO 

1  Routines  Called: 

!  APM  Specific: 

!  Intrinsic:  ALOGIO,  AMAXO,  AMAX1 ,  AMIN1,  EXP 
!  GLOSSARY: 

!  Input  Variables : 

!  ISTP  =  Current  output  range  step  index. 

I  JS  =  Starting  index  in  ZOUT()  for  troposcatter  calculations. 

!  JE  =  Ending  index  in  ZOUT()  for  troposcatter  calculations. 

1  RLOSSO  =  Propagation  loss  in  dB  vs.  height  at  range  ROUT. 

I  Output  Variables 

!  RLOSSO  =  Propagation/troposcatter  loss  in  dB  vs.  height  at  range  ROUT. 

!  Local  Variables: 

!  AL  =  Angle  defined  by  equ.  115  in  EREPS  3.0  User's  Manual 

!  NRaD  TD  2648,  pp.  105. 

!  ALD  =  Log  of  antenna  pattern  factor  for  ALPHAD  where  ALPHAD  here 

l  represents  lowest  direct  ray  angle  in  optical  region. 

!  BE  =  Angle  defined  in  equ.  116  in  EREPS  3.0  User's  Manual 

!  NRaD  TD  2648,  pp.  105. 

!  BIGH  =  Frequency  gain  function  defined  in  equ.  119  in  EREPS  3.0 

!  User's  Manual  NRaD  TD  2648,  pp.  106. 

!  CTl  =  Quantity  defined  in  equ.  124  in  EREPS  3.0  User's  Manual 
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NRaD  TD  2648,  pp.  106. 

CT2  =  Quantity  defined  in  equ.  125  in  EREPS  3.0  User's  Manual 
NRaD  TD  2648,  pp.  106. 

D1  =  Range  from  source  to  tangent  point  in  meters. 

D2  =  Range  from  receiver  to  tangent  point  in  meters. 

DELHO  =  Frequency  gain  function  correction  term  defined  in  equ. 

127  in  EREPS  3.0  User's  Manual  NRaD  TD  2648,  pp.  106. 
ETAS  =  Quantity  defined  in  equ.  126  in  EREPS  3.0  User's  Manual 
NRaD  TD  2648,  pp.  106. 

HO  =  Effective  scattering  height  -  defined  in  equ.  109  in 
EREPS  3.0  User’s  Manual  NRaD  TD  2648,  pp.  105. 

HOR1  -  Quantity  defined  in  equ.  120  in  EREPS  3.0  User's  Manual 


NRaD  TD  2648,  pp.  106. 

HOR2  =  Quantity  defined  in  equ.  121  in  EREPS  3.0  User's  Manual 
NRaD  TD  2648,  pp.  106. 

JZ  =  Current  output  height  index. 

QT  =  Quantity  defined  in  equ.  128  in  EREPS  3.0  User's  Manual 
NRaD  TD  2648,  pp.  107. 

Rl  =  Quantity  defined  in  equ.  122  in  EREPS  3.0  User's  Manual 


NRaD  TD  2648,  pp.  106. 

R2  =  Quantity  defined  in  equ.  123  in. EREPS  3.0  User's  Manual 
NRaD  TD  2648,  pp.  106. 

ROUT  =  Current  output  range  in  meters. 

ROUT3  =  Current  output  range  in  km. 

S  =  Quantity  defined  equ.  110  in  EREPS  3.0  User's  Manual 
NRaD  TD  2648,  pp.  105. 

THETA  =  Common  volume  scattering  angle  in  radians. 

THETA1  =  Tangent  angle  from  source  height. 

THETA2  =  Tangent  angle  from  receiver  height. 

TLOSS  =  Troposcatter  loss  in  dB. 

TLST  =  Troposcatter  loss  term. 


subroutine  tropo (  istp,  js,  je  ) 


use  apm_mod 

rout  =  rngout(istp) 

i For  smooth  surface,  initialize  tangent  angle  for  source  height  and 
! initialize  troposcatter  loss  term,  plus  other  variables  dependent  only 
!on  range. 

thetal  =  thetals 
tlst  =  tlsts 

theta02  -  thetaO (istp)  *  .5 
rout3  =  rout  *  l.e-3 

1  if  terrain  case,  determine  tangent  angle  from  source  and  initialize 
•counter  for  receiver  case. 


if (  f ter  )  then 

if (  rout  .It.  adl(l)  )  then 
return 
else 

do  while ((  rout  .gt.  adl(jtl)  )  .and.  (  jtl  .le.  ktrl  )) 
jtl  =  jtl  +  1 
end  do 

jtl  =  amaxO (  1,  jtl-1  ) 
dl  -  adl (jtl) 
thetal  -  thl  (jtl) 
end  if 

do  while ((  rout  .gt.  tx(jt2)  )  .and.  (  jt2  .le.  itpa  )) 
jt2  =  jt2  +  1 
end  do 

j2m  =  jt2  -  1 
end  if 
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do  jz  =  js,  je 

!For  smooth  surface,  if  current  output  range  is  less  than  minimum 
‘diffraction  field  range,  then  stilly  in  interference  region  -  exit. 

if ( (  rout  .It.  rdt(jz)  )  .and.  {  .not.  fter  ))  return 

!For  smooth  surface,  initialize  tangent  angle  for  receiver  height. 

theta2  =  theta2s(jz) 

if (  fter  )  then 


! If  terrain  case,  determine  tangent  angle  from  receiver. 


d2  =  d2s(jz) 
do  i  =  j2m,  1,  -I 
h2  =  ty (i) 
rx  =  tx(i) 
r2  =  rout  -  rx 

ang2  =  (h2  -  zout(jz))  /  r2  -  r2  /  aek2 
if (  ang2  .gt.  theta2  )  then 
theta2  =  ang2 
d2  =  r2 
end  if 
end  do 

if (  rout  .It.  dl+d2+l.e-2  )  return 

iGet  antenna  pattern  loss  term,  ALD,  based  on  tangent  angle  from 
‘source  over  terrain. 

alphad  =  thetal  +  l.e-6 
call  antpat (  alphad,  FACTR  ) 

if (  factr  .ne.  0.  )  aid  =20.  *  aloglO (  factr  ) 

!Adjust  troposcatter  loss  term. 


tlst 
end  if 

!  Determine 
theta  = 
antdif r 

! Determine 

1 EREPS  3.0 


=  tlsts  -  aid 

common  volume  scattering  angle . 
thetaO(istp)  +  thetal  +  theta2 
=  adif(jz)  /  rout 

angles  illustrated  and  defined  in  equs. 
UserTs  manual. 


115  and  116  in 


al  =  theta02  +  thetal  +  antdifr 
be  =  theta02  +  theta2  -  antdifr 

s  =  aminl (  amaxl (  .1,  al  /be  ),  10.  ) 

iGet  effective  scattering  height,  HO. 

hO  =  s  *  rout3  *  theta  /  (  1.  +  s  )**2 

'The  following  variables  are  determined  to  compute  the  frequency  gain 
'function  BIGH.  All  variables  are  defined  in  equs.  119-128  in  EREPS 
!3.0  user’s  manual. 


etas  =  .5696  *  hO  *  (  1.  +  snl  *  exp(-3.8e-6  *  h0**6)  ) 
etas  =  aminl (  amaxl (  .01,  etas  ),  5.  ) 

ctl  =  16.3  +  13.3*etas 
ct2  =  .4  +  .16*etas 
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rl  =  amaxl (  .1,  rlt  *  theta  ) 
r2  =  amaxl (  .1,  rf  *  zout(jz)  *  theta  ) 

horl  =  amaxl (  0.,  ctl  *  (rl  +  ct2)**(-ek)  ) 

hor2  =  amaxl (  0.,  ctl  *  (r2  +  ct2)**(-ek)  ) 

qt  =  aminl (  amaxl (  . 1,  r2  /  s  /  rl  ) ,  10 .  ) 

delho  =  6. *(.6  -  aloglO (etas) )  *  aloglO(s)  *  aloglO(qt) 

hp  =  (horl  +  hor2)  /  2. 

delho  =  aminl (  hp,  delho  ) 

if (  delho+hp  .It.  0.  )  delho  =  -hp 

high  =  hp  +  delho 

! Troposcatter  loss  is  computed. 

tloss  =  tlst  +573.  *  theta  +  rlogo(istp)  +  bigh 

(Troposcatter  loss  is  compared  to  propagation  loss.  If  the  difference 
! between  the  propagation  loss  and  troposcatter  loss  is  less  than  18  dB, 
(then  a  method  of  bold  interpolation  is  used  to  smoothly  combine  the  2 
(losses.  If  the  difference  is  greater  than  18  dB  then  lesser  of  the  2 
{losses  is  used. 

dif  =  rloss(jz)  -  tloss 
if (  dif  .ge.  18.  )  then 
rloss  ( jz)  =  tloss 
elseif  (  dif  .ge.  -18.  )  then 

rloss ( jz)  =  rloss ( jz)  -  10.*alogl0(  1.  +  10. ** ( . l*dif )  ) 
end  if 
end  do 

end  subroutine  tropo 
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A.3  SUBROUTINE  XOINIT 


!  ************************  SUBROUTINE  XOINIT  ************************* 

!  Module  Name:  XOINIT 

!  Module  Security  Classification:  UNCLASSIFIED 

!  Purpose:  This  routine  initializes  the  range,  height  and  angle  arrays 
i  in  preparation  for  XOSTEP.  It  performs  2  passes  on  a  10-pt 

!  smoothing  average  to  smooth  the  propagation  angles . 

!  Version  Number:  1.0 

!  INPUTS: 

!  Argument  List:  IXOSTP,  JEND 

!  Common:  FTER,  IZ,  ZLIM 

!  Public:  FFACZ ( , ) 

I  OUTPUTS: 

!  Argument  List:  JXSTART,  I ERROR 
!  Common:  NONE 

!  Public:  CURANGO,  CURHT(),  CURNG  ( )  ,  HTOUT  ( )  ,  IGRD  ( )  ,  PR  FAC  ( ) 

!  Modules  Included:  APM_MOD 

!  Calling  Routines:  MAIN  DRIVER  PROGRAM 

!  Routines  Called: 

!  APM  Specific:  SMOOTH 

!  Intrinsic:  NONE 

!  GLOSSARY:  See  universal  glossary  for  common  variables  and  parameters. 

!  Input  Variables: 

!  JEND  =  Output  index  in  MLOSSO  where  loss  values  calculated  from 

!  PE  model  ends. 

I  Output  Variables: 

I  JXSTART  =  Output  index  in  MLOSSO  where  loss  values  calculated  from 

!  from  XO  model  begins . 

!  Local  Variables: 

!  AX  =  Running  sum  of  first  3  angles  computed.  Used  only  for  smooth 

!  surface  case. 

!  DUM  =  Dummy  array  for  CURANGO. 

subroutine  xoinit (  ixostp,  jend,  JXSTART,  IERROR  ) 

use  apm_mod 

real,  allocatable  ::  dum(:) 
if (  ixostp  .gt.  0  )  then 

if (  allocated (  curang  )  )  deallocate (  curang,  stat^ierror  ) 
allocate  (  curang (iz),  stat=ierror  ) 
if (  ierror  .ne.  0  )  return 
curang  =  ffacz  (3, : ) 

if (  allocated!  curht  )  )  deallocate!  curht,  stat=ierror  ) 
allocate!  curht !iz) ,  stat^ierror  ) 
if (  ierror  .ne.  0  )  return 

!  Initialize  so  that  ray  tracing  in  subroutine  EXTO  begins  at  height 
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!  ZLIM  with  the  first  gradient  at  index  0  in  array  GRAD ( ,  )  . 
curht  =  zlim 

if (  allocated (  curng  >  )  deallocate (  curng,  stat^ierror  ) 
allocate  (  curng (iz),  stat=ierror  ) 
if(  ierror  .ne.  0  )  return 
curng  =  f facz (2, : ) 

if (  allocated {  igrd  )  )  deallocate (  igrd,  stat=ierror  ) 

allocate  (  igrd(iz),  stat=ierror  ) 
iff  ierror  .ne.  0  )  return 
igrd  =  0. 

if (  allocated (  htout  )  )  deallocate (  htout,  stat=ierror  ) 
allocate  (  htout (iz),  stat=ierror  ) 
if (  ierror  .ne.  0  )  return 
htout  -  0 . 

if (  allocated (  prfac  )  )  deallocate {  prfac,  stat=ierror  ) 
allocate  (  prfac (iz),  stat^ierror  ) 
if (  ierror  .ne.  0  )  return 
prfac  =  0. 

if (  allocated (  dum  )  )  deallocate (  dum,  stat=ierror  ) 
allocate  (  dum(iz),  stat=ierror  ) 
if (  ierror  .ne.  0  )  return 
dum  =  0. 

if (  f ter  )  then 

I  Now  perform  1st  smoothing  on  entire  angle  array. 

call  smooth (  curang,  iz,  10,  DUM  ) 

!  Now  perform  2nd  smoothing  on  entire  angle  array, 
call  smooth (  dum,  iz,  10,  CURANG  ) 
end  if 

jxstart  -  jend  +  1 
deallocate (  dum  ) 
end  if 

end  subroutine  xoinit 


A.3.1  Subroutine  SMOOTH 

i  *************************  SUBROUTINE  SMOOTH  *********************** 
!  Module  Name:  SMOOTH 

!  Module  Security  Classification:  UNCLASSIFIED 
t  Purpose:  Performs  IAV-pt  average  smoothing. 

!  Version  Number:  1.0 
!  INPUTS: 

!  Argument  List:  ARBEF(),  IAV,  IZ 
!  Common :  NONE 
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!  OUTPUTS: 

!  Argument  List:  ARAFT ( ) 

!  Common :  NONE 

!  Modules  Used:  NONE 

!  Calling  Routines:  XOINIT 

I  Routines  called: 

I  APM  Specific:  NONE 

!  Intrinsic:  AMAXO,  AMINO,  FLOAT 

!  GLOSSARY :  See  universal  glossary  for  common  variables. 

I  Input  Variables : 

!  ARBEF  =  array  before  smoothing. 

!  IAV  =  #  of  points  in  which  to  take  average  smoothing. 

1  IZ  =  #  of  points  in  array. 

!  Output  Variables : 

I  ARAFT  =  array  after  smoothing. 

!  Local  Variables : 

i  AX  =  Temporary  averaged  value. 

!  IA  =  Number  of  points  past  and  previous  to  the  desired  point  to 

!  include  in  averaging. 

I  NAX  =  Current  number  of  points  averaged. 

subroutine  smooth (  arbef,  iz,  iav,  ARAFT  ) 

dimension  arbef (*),  araft(*) 

do  k  =  1,  iz 

ia  =  aminO {  k,  iav,  iz-k  ) 
j  =  amaxO (  1,  k-ia) 

1  =  aminO (  iz,  k+ia  ) 
ax  =  0 . 

nax  =  1  -  j  +  1 
do  i  =  j ,  1 

ax  =  ax  +  arbef (i) 
end  do 

ax  =  ax  /  float (nax) 
araft(k)  =  ax 
end  do 

end  subroutine  smooth 
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A.4  SUBROUTINE  XOSTEP 


SUBROUTINE  XOSTEP 


!  Module  Name:  XOSTEP 

l  Module  Security  Classification:  UNCLASSIFIED 

i  purpose:  Calculates  loss  values  in  the  height  region  above 
I  the  maximum  height  of  the  PE  model  for  one  range  step. 

!  Version  Number:  1.0 


!  INPUTS : 

[  Argument  List:  ISTP,  JXSTART 
!  Common:  GASATT,  HTLIM,  I HYBRID,  KABS,  NZOUT 
[  Public:  HTFEO,  RNGOUT  ( )  ,  RSQRD  ( )  ,  ZOUT  ( ) 

I  OUTPUTS : 

i  Argument  List:  JXEND,  MLOSS ( ) ,  ROUT 
!  Common:  NONE 

I  Modules  Used:  APM_MOD 

!  Calling  Routines:  MAIN  DRIVER  PROGRAM 

l  Routines  Called: 

I  APM  Specific:  EXTO,  FEM,  ROM 
I  Intrinsic:  AMINO,  NINT 

i  GLOSSARY:  See  universal  glossary  for  common  variables. 

!  Input  Variables: 

i  ISTP  =  Current  output  range  step  index. 

1  JXSTART  =  Output  index  in  MLOSS ( )  where  loss  values  calculated 

i  from  FE/RO/XO  model  begins. 

!  Output  Variables : 

i  JXEND  =  Index  at  which  the  valid  propagation  loss  values  end. 

!  ROUT  =  Current  output  range  in  meters. 

i  MLOSS ()  =  2-byte  integer  array  containing  propagation  loss  values 

i  in  centibels  vs.  height,  at  each  output  range  ROUT. 

I  All  loss  values  returned  are  referenced  to  height  HMIN. 

!  Local  Variables: 

i  jFE  =  ending  index  within  MLOSS ()  of  FE  loss  values. 

I  JFS  =  starting  index  within  MLOSS { )  of  FE  loss  values. 

!  JRE  =  ending  index  within  MLOSS ()  of  RO  loss  values. 

I  JRS  =  starting  index  within  MLOSS ( )  of  RO  loss  values . 

i  LABSCB  =  Loss  due  to  gaseous  absorption  in  centibels 

!  RSQ  =  Square  of  output  range  ROUT 

subroutine  xostep<  istp,  ROUT,  MLOSS,  jxstart,  JXEND  ) 


use  apm_mod 

integer*2  mloss(0:*),  labscb 

double  precision  rsq 

if {  i hybrid  .eq.  0  )  return 


j  fs  =  0 
jfe  =  0 
jrs  =  0 
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jre  =  0 


rout  =  rngout(istp) 
rsq  =  rsqrd(istp) 

do  j  =  jxstart,  nzout 
mloss ( j )  =  -1 
end  do 

!  Perform  extended  optics  calculations . 

!  JXE  =  ending  index  within  MLOSS ( )  of  XO  loss  values. 

call  exto (  istp,  rout,  MLOSS,  jxstart,  JXE  ) 

if (  ihybrid  .eq.  1  )  then 

if {  htfe(istp)  .It.  htlim-l.e-3  )  then 
j  =  nzout 

do  while (  zout(j)  .gt.  htfe(istp)  ) 

j  =  j  -  1 

end  do 

jfs  =  amaxO (  jxe+1,  j+1  ) 
jfe  =  nzout 
end  if 

if (  jfe  .gt.  0  )  call  fem(  rout,  rsq,  MLOSS,  JFS,  JFE  ) 

!  Perform  RO  calculations  if  necessary 

I  JRS  =  starting  index  within  MLOSS ()  of  RO  loss  values. 

I  JRE  =  ending  index  within  MLOSS ( )  of  RO  loss  values. 

if {  jxe  .It.  nzout  )  then 
jre  =  jfs  -  1 

if (  jre  .It.  0  )  jre  =  nzout 
jrs  =  jxe  +  1 
if (  jrs  .gt.  jre  )  then 
jrs  =  0 
jre  =  0 
end  if 

if (  jre  .gt.  0  )  call  rom(  istp,  rout,  MLOSS,  jrs,  jre  ) 
end  if 
end  if 

jxend  =  amaxO  (  jxe,  jfe,  jre  ) 

if (  kabs  .gt.  0  )  then 
do  i  =  jxstart,  jxend 

labscb  =  nint (  rout  *  gasatt  ) 
mloss (i)  =  mloss (i)  +  labscb 
end  do 
end  if 

end  subroutine  xostep 


A.4.1  Subroutine  EXTO 

i  ************************  SUBROUTINE  EXTO  ************************* 

!  Module  Name:  EXTO 

I  Module  Security  Classification:  UNCLASSIFIED 

!  Purpose:  This  routine  calculates  loss  based  on  XO  techniques.  It 
-  performs  a  ray  trace  on  all  rays  within  one  output  range  step 

!  and  returns  the  propagation  loss  up  to  the  necessary  height, 

!  storing  all  angle,  height,  and  range  information  for  ray 
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trace  upon  next  call. 


!  Version  Number:  1.0 
!  INPUTS: 

!  Argument  List:  ISTP,  JXS,  ROUT 

I  Common:  FTER,  HTLIM,  IRATZ,  ITROPO,  IZ,  NZOUT 

I  Public:  CURANGO,  CURHT  { )  ,  CURNG  ( )  ,  FFACZ  ( ,  )  ,  FFROUT  ( )  ,  FSLR  ( )  , 

I  GRAD ( ,  )  ,  HLIM ( ) ,  HTR ( , ) ,  IGRD { )  ,  LVL  ()  ,  ZOUT { ) 

I  OUTPUTS: 

[  Argument  List:  JXE,  MLOSSO 

!  Common:  CURANG  { )  ,  CURHTO,  CURNG  { )  ,  HLIM  ( )  ,  HTOUTO,  PRFAC  ( )  ,  RLOSS() 

!  SAVE:  IZE,  IZS,  IRPS 

I  Modules  Used:  APM_MOD 

!  Calling  Routines:  XOSTEP 

i  Routines  called: 

I  APM  Specific:  TROPO 

!  Intrinsic:  AMAXO,  AMINO,  AMIN1,  NINT 

!  GLOSSARY:  See  universal  glossary  for  common  variables  and  parameters. 

[  Input  Variables : 

!  ISTP  =  index  of  current  output  range  step. 

I  JXS  =  index  in  MLOSSO  where  loss  values  calculated  from 

!  XO  model  begins, 

i  ROUT  =  current  output  range  in  meters. 

i  Output  Variables : 

i  jxe  =  index  in  MLOSSO  where  loss  values  calculated  from 

i  XO  model  ends . 

1  MLOSSO  =  2-byte  integer  array  containing  propagation  loss  values 

!  in  centibels  vs.  height,  at  each  output  range  ROUT. 

I  All  loss  values  returned  are  referenced  to  height  HMIN. 

I  Local  Variables : 

!  AO  =  Angle  at  start  of  trace  in  radians, 

i  A1  =  Angle  at  end  of  trace  in  radians. 

t  FFAC  =  Propagation  factor  in  dB  for  specified  output  height  point 

i  at  range  ROUT. 

i  FSLROUT  =  Free  space  loss  at  range  ROUT. 

i  GRD  =  Gradient  of  current  refractivity  layer  being  traced  through. 

I  HO  =  Height  at  start  of  trace  in  meters. 

I  HI  =  Height  at  end  of  trace  in  meters. 

i  IGRAD  =  Index  of  current  gradient  level  in  GRAD ( , )  in  ray  trace, 

i  irp  =  Counter  for  current  refractivity/gradient  profile  being  used 

i  from  GRAD ( , ) .  {Profile  varies  only  for  range -dependent  case). 

I  IRPS  =  Starting  index  counter,  used  to  make  sure  IRP  is 

S  initialized  properly. 

!  IZE  =  Ending  index  in  CURANGO,  CURNG{),  and  CURHTO  to  trace  to 

!  ROUT . 

i  IZS  =  Starting  index  in  CURANGO,  CURNG {),  and  CURHTO  to  trace  to 

I  ROUT . 

I  NXO  =  #  of  rays  traced,  i.e.,  height  points,  in  XO  region. 

[  PI  =  Propagation  factor  at  height  Zl. 

I  P2  =  Propagation  factor  at  height  Z2 . 

I  R0  =  Range  at  start  of  trace  in  meters. 

1  ri  =  Range  at  end  of  trace  in  meters. 

I  Zl  =  Nearest  traced  height  point  below  current  output  height  point 

I  in  ZOUT ( ) . 

I  Z2  =  Nearest  traced  height  point  above  current  output  height  point 

!  in  ZOUT { ) . 
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subroutine  exto (  istp,  rout,  MLOSS,  jxs,  JXE  ) 

use  apm_mod 

integer *2  mloss(0:*) 

save  ize,  izs,  irps 

!  Define  in  line  ray  trace  functions: 

radal (  a,  b  )  =  a**2  +  2.  *  grd  *  b  !a=aO,  b=hl-hO 

rp{a,  b)=a+b/  grd  !a=rO,  b=al-aO 

ap(  a,  b  )  =  a  +  b  *  grd  !a=aO,  b=rl-rO 

hp {  a,  b,  c  )  =  a  +  (  b**2  -  c**2  )  /  2.  /  grd  la=hO,  b=al,  c=aO 

!  Define  in  line  interpolation  function: 

plint (pll ,  pl2,  frac)  =  pll  +  frac  *  (  pl2  -  pll  ) 

!  Initialize  free  space  loss. 

fslrout  =  fslr(istp) 

!  If  this  is  the  first  time  called,  then  initialize  all  index  variables. 

if (  istp  .eq.  iratz  )  then 
ize  =  1 
izs  =  1 
irps  =  1 
end  if 


do  j  =  ize,  iz 

if (  curng(j)  .gt.  rout  )  exit 
end  do 

1  =  amaxO (  1,  j-1  ) 
ize  =  aminO (  1,  iz  ) 

k  =  0 

!  Begin  trace. 

do  j  =  izs,  ize 
aO  =  curang(j) 
rO  =  curng ( j ) 
hO  =  curht(j) 
igrad  =  igrd(j) 

irp  =  amaxO (  j ,  irps  ) 
grd  =  grad (igrad, irp) 

do  while  (  rO  .It.  rout  ) 

if (  irp  .eq.  iz  )  then 
rl  =  rout 
else 

rl  =  arrtinl(  f  f acz  (2 ,  irp+1 )  ,  rout  ) 
end  if 

al  =  ap(  aO,  rl-rO  ) 
hi  =  hp(  hO,  al,  aO  ) 

htrx  =  htr (igrad+1, irp) 
if(  hi  .gt.  htrx  ) then 
hi  =  htrx 

rad  =  radal (  aO,  hl-hO  ) 
al  =  sqrt (  rad  ) 
rl  =  rp(  rO,  al-aO  ) 
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igrad  =  aminO (  igrad+1,  lvl(irp)-l  ) 
end  if 

aO  =  al 
rO  =  rl 
hO  s  hi 

if (  rO  .gt.  ffacz (2 , irp+1) -1 . e-3  )  irp  =  aminO (irp+1,  ize) 
end  do 

!  After  trace,  all  angle,  range,  and  height  information  are  stored  for 
!  next  call  to  EXTO.  Propagation  factor  at  current  range  step  ROUT,  along 
!  with  height  is  stored  in  PRFAC ( )  and  HTOUT ( ) ,  respectively. 

curht ( j )  =  hO 
curng(j)  =  rO 
curang(j)  =  aO 
igrd(j)  =  igrad 
k  =  k  +  1 

prfac (k)  =  ffacz (l,j) 
htout(k)  =  hO 
end  do 

irps  =  ize 

k=  k  +  1 

prfac (k)  =  ffrout(l,istp) 
htout(k)  =  f frout (2 , istp) 
nxo  =  k 

!  adjust  counter  of  first  starting  point  for  ray  tracing  if  ray  has 
1  already  been  traced  beyond  maximum  calculation  height. 

do  while (  curht (izs)  .gt.  htlim  ) 
izs  =  izs  +  1 
end  do 

izs  =  amaxO (  1,  izs  -  1  ) 

i  sort  height  and  propagation  factor,  such  that  HTOUT ( )  contains  steadily 
!  increasing  height  from  HTOUT (NXO)  to  HTOUT (1 ) . 

if (  f ter  )  then 
k  =  1 

do  while {  k  .gt.  0  ) 
k  =  0 

do  j  =  1,  nxo-1 

if (  htout(j)  .It.  htout (j+1)  )  then 
k  =  j 

hk  =  htout ( j ) 
htout (j)  =  htout (j+1) 
htout (j+1)  =  hk 
cf  =  prfac ( j ) 
prfac(j)  =  prfac (j+1) 
prfac (j+1)  =  cf 
end  if 
end  do 
end  do 
end  if 

jxe  =  nzout 

do  while (  zout(jxe)  .gt.  htout (1)  ) 

jxe  =  jxe  -  1 
end  do 

hlim(istp)  =  zout(jxe) 
ix  =  nxo 
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!  Now  begin  interpolation  of  propagation  factor  at  specified  output 
]  points  ZOUT(i). 

zl  =  htout(ix) 
z2  =  htout(ix-l) 
pi  =  prfac ( ix) 
p2  =  prfac (ix-1) 

do  j  =  jxs,  jxe 
z  =  zout(j) 

do  while ((  z  .gt.  z2  )  .and.  (  ix  .gt.  1  )) 
ix  =  ix  -  1 
if (  ix  .gt.  1  )  then 
zl  =  z2 
pi  =  p2 

z2  =  htout(ix-l) 
p2  =  prfac (ix-1) 
end  if 
end  do 

frac  =  (  z  -  zl  )  /  (  z2  -  zl  ) 
ffac  =  plint<  pi,  p2 ,  frac  ) 
rloss(j)  =  ffac  +  fslrout 
end  do 

!  Compute  troposcatter  loss  and  store  final  loss  values  in  MLOSS{). 

if {  itropo  .eq.  1  )  call  tropo (  istp,  jxs,  jxe  ) 
do  j  =  jxs,  jxe 

mloss(j)  =  nint(  10.  *  rloss(j)  ) 
end  do 

end  subroutine  exto 
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A.5  Subroutine  APMCLEAN 


,******************************  SUBROUTINE  APMCLEAN 
****************************** 

!  Module  Name:  APMCLEAN 

!  Module  Security  Classification:  UNCLASSIFIED 

I  Purpose:  This  routine  deallocates  all  dynamically  dimensioned  arrays 
?  used  in  one  complete  run  of  APM  calculations. 

!  Version  Number:  1.0 

!  INPUTS: 

!  Argument  List:  I ERROR 

!  Common:  ITROPO,  NFACS 

I  Public:  All  dynamically  dimensioned  arrays  in  APM_MOD 
I  OUTPUTS: 

!  Argument  List:  IERROR 

!  Common :  None 

!  Public:  All  dynamically  dimensioned  (public)  arrays. 

1  Modules  Used:  APM__MOD 

!  Calling  Routines:  MAIN  DRIVER  PROGRAM 

1  Routines  called: 

!  APM  Specific:  NONE 

!  Intrinsic:  ALLOCATE,  ALLOCATED,  DEALLOCATE 

i  GLOSSARY:  See  universal  glossary  for  common  and  public  variables. 

I  Input  Variables : 

I  IXOSTP  =  Index  of  output  range  step  at  which  XO  model  is  to 

t  be  applied. 

I  Output  Variables:  None 

i  IERROR  =  Integer  variable  indicating  error  #  for  DEALLOCATE 

i  and  ALLOCATE  statements . 


I  Local  Variables : 

i  NTEMP  =  Dummy  integer  variable  -  used  to  deallocate  FFT  arrays 

»  allocated  in  module  SINFFT. 

subroutine  apmclean (  IERROR  ) 

use  apm_mod 

ierror  =  0 

!  Deallocate  all  arrays  allocated  in  ALLARRAY_APM . 

if (  allocated (  hfangr  )  )  deallocate (  hfangr,  stat=ierror  ) 
if (  ierror  .ne.  0  )  return 

if (  allocated (  rsqrd  )  )  deallocate (  rsqrd,  stat=ierror  ) 
if (  ierror  .ne.  0  )  return 

if (  allocated (  fslr  )  }  deallocate (  fslr,  stat=ierror  ) 
if(  ierror  .ne.  0  )  return 

if (  allocated (  rlogo  )  )  deallocate (  rlogo,  stat=ierror  ) 

if {  ierror  .ne.  0  )  return 
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if (  allocated (  rngout  )  )  deallocate (  rngout,  stat=ierror  ) 
if (  ierror  .ne.  0  )  return 

if (  allocated (  zout  )  )  deallocate (  zout,  stat=ierror  ) 
if (  ierror  .ne.  0  )  return 

if (  allocated (  zro  )  )  deallocate (  zro,  stat=ierror  ) 
if (  ierror  .ne.  0  )  return 

if (  allocated (  zoutma  )  )  deallocate (  zoutma,  stat=ierror  ) 
if(  ierror  .ne.  0  )  return 

if (  allocated (  zoutpa  )  )  deallocate (  zoutpa,  stat=ierror  ) 
if (  ierror  .ne.  0  )  return 

if (  allocated (  hlim  )  )  deallocate {  hlim,  stat=ierror  ) 
if (  ierror  .ne.  0  )  return 

if (  allocated (  htfe  )  )  deallocate (  htfe,  stat=ierror  ) 
if (  ierror  .ne.  0  )  return 

if (  allocated (  rfacl  )  )  deallocate (  rfacl,  stat=ierror  ) 
if (  ierror  .ne.  0  )  return 

if (  allocated (  rfac2  )  )  deallocate (  rfac2,  stat=ierror  ) 
if(  ierror  .ne.  0  }  return 

if (  allocated (  rloss  )  )  deallocate(  rloss,  stat=ierror  ) 
if(  ierror  .ne.  0  )  return 

if(  allocated (  tx  )  )  deallocate (  tx,  stat=ierror  ) 
if (  ierror  .ne.  0  )  return 

if (  allocated (  ty  )  )  deallocate (  ty,  stat=ierror  ) 
if (  ierror  .ne.  0  )  return 

if (  allocated (  sip  )  )  deallocate {  sip,  stat=ierror  ) 
if (  ierror  .ne.  0  )  return 

if (  allocated (  dielec  )  )  deallocate (  dielec,  stat=ierror  ) 
if(  ierror  .ne.  0  )  return 

if  <  allocated (  igrnd  )  )  deallocate (  igrnd,  stat=ierror  } 
if (  ierror  .ne.  0  )  return 

if (  allocated (  rgrnd  )  )  deallocate(  rgrnd,  stat=ierror  } 
if (  ierror  .ne.  0  )  return 

if (  allocated (  refdum  )  )  deallocate!  refdum,  stat=ierror  ) 
if(  ierror  .ne.  0  )  return 

if (  allocated!  htdum  )  )  deallocate!  htdum,  stat=ierror  ) 
if(  ierror  .ne.  0  )  return 

iff  allocated!  href  )  )  deallocate!  href,  stat=ierror  ) 
if (  ierror  .ne.  0  )  return 

if(  allocated!  refref  }  )  deallocate!  ref ref,  stat=ierror  ) 
if!  ierror  .ne.  0  )  return 

if!  allocated!  gr  )  )  deallocate!  gr,  stat=ierror  ) 
if (  ierror  .ne.  0  )  return 

if!  allocated!  q  )  )  deallocate!  q,  stat=ierror  ) 
if{  ierror  .ne.  0  )  return 
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if {  allocated (  rm  )  )  deallocate (  rm,  stat=ierror  ) 

if (  ierror  .ne.  0  )  return 

if (  allocated (  zrt  )  )  deallocate (  zrt,  stat=ierror  ) 

if (  ierror  .ne.  0  )  return 

1  Deallocate  arrays  used  in  troposcatter  calculations. 

if (  allocated (  adl  )  )  deallocate (  adl,  stat=ierror  ) 
if (  ierror  .ne.  0  )  return 

if (  allocated (  adif  )  )  deallocate {  adif,  stat=ierror  } 

if (  ierror  .ne.  0  )  return 

if (  allocated (  d2s  )  )  deallocate (  d2s;  stat=ierror  ) 

if (  ierror  .ne.  0  )  return 

if (  allocated {  rdt  )  )  deallocate(  rdt,  stat=ierror  ) 

if (  ierror  .ne.  0  )  return 

if (  allocated (  thl  )  )  deallocate (  thl,  stat^ierror  ) 
if (  ierror  .ne.  0  )  return 

if (  allocated (  thetaO  )  )  deallocate (  thetaO,  stat=ierror  ) 
if (  ierror  .ne.  0  )  return 

if {  allocated {  theta2s  )  )  deallocate (  theta2s,  stat=ierror  ) 

if (  ierror  .ne.  0  )  return 

l  Deallocate  all  arrays  allocated  in  ALLARRAY__PE . 
ntemp  =  -1 

call  s inf ft (  ntemp,  xdum  )  {Deallocates  arrays  in  SINFFT  module. 

if(  allocated (  envpr  )  )  deallocate (  envpr,  stat=ierror  ) 

if (  ierror  .ne.  0  )  return 

if(  allocated (  filt  )  )  deallocate (  filt,  stat=ierror  ) 

if (  ierror  .ne.  0  )  return 

if (  allocated (  frsp  )  )  deallocate (  frsp,  stat=ierror  ) 

if (  ierror  .ne.  0  )  return 

if (  allocated (  ht  )  )  deallocate (  ht,  stat=ierror  ) 
if (  ierror  .ne.  0  )  return 

if (  allocated (  profint  )  )  deallocate (  profint,  stat=ierror  ) 

if {  ierror  .ne.  0  )  return 

if (  allocated {  root  )  )  deallocate (  root,  stat=ierror  ) 

if (  ierror  .ne.  0  )  return 

if (  allocated (  rootm  )  )  deallocate (  rootm,  stat=ierror  ) 

if (  ierror  .ne.  0  )  return 

if {  allocated (  u  )  )  deallocate (  u,  stat=ierror  ) 

if (  ierror  .ne.  0  )  return 

if (  allocated (  ulst  )  )  deallocate (  ulst,  stat=ierror  ) 
if (  ierror  .ne.  0  )  return 

if (  allocated (  w  )  )  deallocate (  w,  stat=ierror  ) 

if (  ierror  .ne.  0  )  return 

if (  allocated (  xdum  )  )  deallocate (  xdum,  stat=ierror  ) 

if(  ierror  .ne.  0  )  return 
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if(  allocated (  ydum  )  )  deallocate (  ydum,  stat=ierror  ) 
iff  ierror  .ne.  0  )  return 

iff  allocated (  ym  )  )  deallocate (  yin,  stat=ierror  ) 
iff  ierror  .ne.  0  )  return 

iff  allocated (  cn2  )  )  deallocate f  cn2 ,  stat=ierror  ) 
iff  ierror  .ne.  0  )  return 

I  Deallocate  all  arrays  allocated  in  ALLARRA.Y_XO . 

iff  allocated f  ffrout  )  )  deallocate f  ffrout,  stat=ierror  ) 
iff  ierror  .ne.  0  )  return 

iff  allocated (  ffacz  }  )  deallocate (  ffacz,  stat=ierror  ) 
iff  ierror  .ne.  0  )  return 

iff  allocated f  grad  )  )  deallocate (  grad,  stat=ierror  ) 
iff  ierror  .ne.  0  )  return 

iff  allocated (  htr  )  )  deallocate (  htr,  stat=ierror  ) 
iff  ierror  .ne.  0  )  return 

iff  allocated f  lvl  )  )  deallocate f  lvl,  stat=ierror  ) 
iff  ierror  .ne.  0  )  return 

iff  allocated (  filtp  )  )  deallocate (  filtp,  stat=ierror  ) 
iff  ierror  .ne.  0  )  return 

iff  allocated f  xp  )  )  deallocate (  xp,  stat=ierror  ) 
iff  ierror  .ne.  0  )  return 

iff  allocated (  yp  )  )  deallocate (  yp,  stat=ierror  ) 

iff  ierror  .ne.  0  )  return 

iff  allocatedf  spectr  )  )  deallocate (  spectr,  stat=ierror  ) 
iff  ierror  .ne.  0  )  return 

iff  allocatedf  curang  )  )  deallocatef  curang,  stat=ierror  ) 

iff  ierror  .ne.  0  )  return 

iff  allocatedf  curht  )  )  deallocatef  curht,  stat=ierror  ) 
iff  ierror  .ne.  0  )  return 

iff  allocatedf  curng  )  )  deallocatef  curng,  stat=ierror  ) 

iff  ierror  .ne.  0  )  return 

iff  allocatedf  igrd  )  )  deallocatef  igrd,  stat=ierror  ) 
iff  ierror  .ne.  0  )  return 

iff  allocatedf  htout  )  )  deallocatef  htout,  stat=ierror  ) 
iff  ierror  .ne.  0  )  return 

iff  allocatedf  prfac  )  )  deallocatef  prfac,  stat=ierror  ) 
iff  ierror  .ne.  0  )  return 

end  subroutine  apmclean 
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A.6  MODULE  APMJVIOD 


module  apm_mod 

implicit  integer*4  (i-n) 

parameter  (  pi  =  3.1415926  )  ! Self-explanatory 

parameter  (  irtemp  =  200  )  'Number  of  range  steps  for  use  in  ray-tracing 

! to  determine  maximum  PE  angle . 

!  ERRORFLAG : 

I  LERR6  =  Logical  flag  that  allows  for  greater  flexibility  in  allowing  error 
I  -6  to  be  bypassed.  If  set  to  .TRUE,  then  trapping  for  this  error 

!  occurs,  otherwise  it  can  be  totally  ignored  by  main  driver 

i  program.  (Within  the  APM  program  it  is  handled  as  a  warning) .  If 

!  this  error  is  bypassed  (LERR6  =  .FALSE.)  terrain  profile  is 

!  extended  to  RMAX  with  same  elevation  height  of  last  valid  terrain 

!  profile  point. 

i  LERR12  =  Same  as  LERR6  -  allows  for  trapping  of  this  error.  If  LERR12  = 

i  .FALSE.,  then  (for  range -dependent  case)  if  range  of  last 

i  refractivity  profile  entered  is  less  than  RMAX,  the  environment 

i  is  treated  as  homogeneous  from  the  last  profile  entered  to  RMAX. 

common  /  errorflag-  /  lerr6,  lerrl2 
logical  lerr6,  lerrl2 

l  INPUTVAR: 

i  HMAX  =  maximum  output  height  with  respect  to  m.s.l.  in  meters 

!  HMIN  =  minimum  output  height  with  respect  to  m.s.l.  in  meters 

i  ITROPO  =  integer  flag  indicating  if  troposcatter  solutions  are 
I  to  be  performed.  ITROPO=0  ->  no  troposcatter  calculations, 

!  ITR0P0=1  ->  perform  troposcatter  calculations. 

I  NZOUT  =  integer  number  of  output  height  points  desired 

i  NROUT  =  integer  number  of  output  range  points  desired 

I  RMAX  =  maximum  output  range  in  meters 

common  /  inputvar  /  hmax,  hmin,  itropo,  nzout,  nrout,  rmax 
real  hmax,  hmin,  rmax 

i  REFRACTIVITY  common  block  and  associated  input  variables: 
i  ABSHUM  =  absolute  humidity  near  the  surface  in  g/m3 . 

I  GAMMAA  =  gaseous  absorption  in  dB/km. 

i  hMSL ( , )  =  Dynamically  allocated  2-dimensional  array  of  size 
I  (0 :LVLP,NPROF)  containing  heights  in  meters  with  respect 

i  to  mean  sea  level  of  each  profile.  Array  format  must  be 

I  HMSL ( I , J)  =  height  of  Ith  level  of  Jth  profile.  J  =  1 

»  for  range- independent  cases. 

,  **************************  NOTE:  ************************** 

I  LVLP  is  the  actual  #  of  height  levels  occupying  0  to  LVLP-1 

I  elements  in  array  HMSL;  there  will  be  an  extra  point 

!  unused  on  input. 

j  *********************************************************** 

!  I EXTRA  =  Extrapolation  flag  for  refractivity  profiles  entered  below 
!  m.s.l. 

i  IEXTRA  =  0  ->  extrapolate  to  minimum  terrain  height  using 

i  standard  atmosphere  gradient. 

I  IEXTRA  =  1  ->  extrapolate  to  minimum  terrain  height  using 

I  first  gradient  in  profile. 

i  LVLP  =  number  of  levels  in  refractivity  profile  (for  range  dependent 
i  case  all  profiles  must  have  same  number  of  levels) . 

!  NPROF  =  number  of  profiles.  Equals  1  for  range- independent  cases. 

I  REFMSL { , )  =  Dynamically  allocated  2-dimensional  array  of  size 
I  (0 :LVLP, NPROF)  containing  refractivity  with  respect  to 
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!  mean  sea  level  of  each  profile.  Array  format  must  be 

i  REFMSL ( I , J)  =  M-unit  value  at  Ith  level  of  Jth  profile. 

!  J  =  1  for  range -independent  cases . 

i  **************************  NOTE:  ************************** 

!  LVLP  is  the  actual  #  of  refractivity  levels  occupying  0  to 

\  LVLP-1  elements  in  array  REFMSL;  there  will  be  an  extra 

i  point  unused  on  input. 

j  *********************************************************** 

!  RNGPROF { )  =  ranges  of  each  profile  in  meters,  i.e.,  RNGPROF ( I )  =  range  of 
I  Ith  profile.  RNGPROF (1)  should  always  be  equal  to  0. 

!  TAIR  =  air  temperature  near  the  surface  in  degrees  C. 

I  ******************************  NOTE  ********************************** 

!  For  DEC  Visual  Fortran  Ver.  5.0  Fortran  90  compilation  using 
1  dynamically  allocated  arrays,  the  following  source  code  MUST  be  in  the 
!  main  driver  (calling)  program  before  initialization  of  the  arrays  can 
!  can  be  performed: 

!  IF {  ALLOCATED (  HMSL  )  )  DEALLOCATE (  HMSL  ) 

!  ALLOCATE (  HMSL(0:LVLP,  NPROF )  ) 

!  HMSL  =  0. 

!  IF  (  ALLOCATED  (  REFMSL  )  )  DEALLOCATE  (  REFMSL  ) 

!  ALLOCATE (  REFMSL ( 0 : LVLP ,  NPROF)  ) 

!  REFMSL  =  0. 

I  IF (  ALLOCATED (  RNGPROF  )  )  DEALLOCATE (  RNGPROF  ) 

!  ALLOCATE (  RNGPROF (NPROF)  ) 

I  RNGPROF  =  0. 

!  Once  the  above  source  code  has  been  inserted  in  the  main  (calling) 

!  routine,  the  arrays  can  then  be  initialized  with  the  desired  refrac- 
l  tivity  profiles  for  subsequent  use  by  routines  APMINIT  and  APMSTEP. 

i ************************************************************************ 


common  /  refractivity  /  abshum,  gammaa,  iextra,  lvlp,  nprof,  tair 
real  tair,  abshum,  gammaa 

real,  allocatable  ::  hmsl ( : , : ) ,  refmsl ( : , : ) ,  rngprof ( : ) 
public  ::  hmsl,  refmsl,  rngprof 

!  SYSTEMVAR: 

I  ANTHT  =8  transmitting  antenna  height  above  local  ground  in  meters . 

I  BWIDTH  =  half-power  (3  dB)  antenna  pattern  beamwidth  in  degrees  (.5  to  45.) 

!  ELEV  =  antenna  pattern  elevation  angle  in  degrees.  (-10  to  10) 

I  FREQ  =  frequency  in  MHz 

!  HFANG { )  =  Dynamically  allocated  array  of  cut-back  angles  in  degrees. 

!  This  is  only  used  for  user-defined  height-finder  antenna  type. 

!  HFFAC ( )  =  Dynamically  allocated  array  of  cut-back  antenna  pattern 
!  factors.  This  is  only  used  for  user-defined  height-finder 

!  antenna  type. 

!  IPAT  =  integer  value  indicating  type  of  antenna  pattern  desired 
!  IPAT  =  1  ->  omni 

I  IPAT  =  2  ->  gaussian 

!  IPAT  =  3  ->  sine  x 

!  IPAT  =  4  ->  csc**2  X 

I  IPAT  =  5  ->  generic  height- finder 

i  IPAT  =  6  ->  user-defined  height-finder 

I  IPOL  =  integer  indicating  polarization.  0-horizontal, 

!  1-vertical 

!  NFACS  =  Number  of  user-defined  cut-back  angles  and  cut-back  antenna 

!  pattern  factors  for  user-defined  height-finder  antenna  type. 

[******************************  NOTE  ********************************** 

I  For  DEC  Visual  Fortran  Ver.  5.0  Fortran  90  compilation  using 
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I  dynamically  allocated  arrays,  the  following  source  code  MUST  be  in  the 
I  main  driver  (calling)  program  before  initialization  of  the  arrays  can 
!  can  be  performed: 

!  IF  (  ALLOCATED  (  HFANG  )  )  DEALLOCATE  (  HFANG  ) 

!  ALLOCATE {  HFANG (NFACS)  ) 

!  HFANG  =  0. 

i  IF  (  ALLOCATED  (  HFFAC  )  )  DEALLOCATE  (  HFFAC  ) 

!  ALLOCATE  (  HFFAC  (NFACS)  ) 

!  HFFAC  =  0. 

i  Once  the  above  source  code  has  been  inserted  in  the  main  (calling) 

!  routine,  the  arrays  can  then  be  initialized  with  the  desired  cut-back 
I  angles  and  factors  for  subsequent  use  by  routines  APMINIT  and  APMSTEP . 

i************************************************************************ 


common  /  systemvar  /  antht,  bwidth,  elev,  freq,  ipat,  ipol,  nfacs 

real  freq,  antht,  bwidth,  elev 

real,  allocatable  ::  hfang(:),  hffac(:) 

public  : :  hfang,  hf fac 

!  TERRAIN  common  block  and  associated  input  variables: 

i  DIELEC (,)  =  Dynamically  allocated  2-dimensional  array  of  size  (2,IGR) 
i  containing  the  relative  permittivity  and  conductivity; 

i  DIELEC (l,i)  and  DIELEC (2, i),  respectively.  Only  needs  to  be 

i  specified  if  using  IGRND(i)  =  7,  otherwise,  APM  will 

i  calculate  based  on  frequency  and  ground  types  0-6. 

!  igr  =  number  of  different  ground  types  specified 

!  IGRND ( )  =  Dynamically  allocated  integer  array  of  size  (IGR)  containing 
i  ground  type  composition  for  given  terrain  profile  -  can 

i  vary  with  range.  Different  ground  types  are: 

i  0  =  sea  water 

!  1  =  fresh  water 

!  2  =  wet  ground 

!  3  =  medium  dry  ground 

i  4  =  very  dry  ground 

t  5  =  ice  at  -1  degree  C 

I  6  =  ice  at  -10  degree  C 

i  7  =  user  defined  (in  which  case,  values  of  relative 

i  permittivity  and  conductivity  must  be  given) . 

!  ITP  =  number  of  height/range  pairs  in  profile 

!  RGRNDO  =  Dynamically  allocated  array  of  size  (IGR)  containing  ranges, 

!  in  m,  at  which  the  ground  types  apply. 

I  TERX ( )  =  Dynamically  allocated  array  of  size  (ITP)  containing  range 
i  points  of  terrain  profile  in  meters. 

!  TERY()  =  Dynamically  allocated  array  of  size  (ITP)  containing  height 
I  points  of  terrain  profile  in  meters. 

i  ******************************  NOTE  ********************************** 
i  For  DEC  Visual  Fortran  Ver.  5.0  Fortran  90  compilation  using 
!  dynamically  allocated  arrays,  the  following  source  code  MUST  be  in  the 
I  main  driver  (calling)  program  before  initialization  of  the  arrays  can 
!  can  be  performed: 

i  IF (  ALLOCATED (  DIELEC  )  )  DEALLOCATE (  DIELEC  ) 

i  ALLOCATE (  DIELEC (2,  IGR)  ) 

!  DIELEC  =  0. 

i  IF  (  ALLOCATED  {  IGRND  )  )  DEALLOCATE  (  IGRND  ) 

I  ALLOCATE (  IGRND (IGR)  ) 

!  IGRND  =  0. 

I  IF (  ALLOCATED {  RGRND  )  )  DEALLOCATE (  RGRND  ) 

!  ALLOCATE (  RGRND (IGR)  ) 

!  RGRND  =  0. 
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!  IF {  ALLOCATED (  TERX  )  )  DEALLOCATE {  TERX  ) 

!  ALLOCATE (  TERX(ITP)  ) 

!  TERX  =  0. 

!  IF  (  ALLOCATED  (  TERY  )  )  DEALLOCATE  (  TERY  ) 

I  ALLOCATE (  TERY(ITP)  ) 

!  TERY  =  0. 

!  Once  the  above  source  code  has  been  inserted  in  the  main  (calling) 

!  routine,  the  arrays  can  then  be  initialized  with  the  desired  terrain 
!  information  for  subsequent  use  by  routines  APMINIT  and  APMSTEP . 

t************************************************************************ 


common  /  terrain  /  igr,  itp 

real,  allocatable  ::  dielec ,  rgrnd(:),  terx(:),  tery(:) 
allocatable  ::  igrnd(:) 

public  ::  dielec,  igrnd,  rgrnd,  terx,  tery 
i *******************  START  OF  INTERNAL  APM  DECLARATIONS  ****************** 

!  Common  Blocks 
!  ABSORB: 

I  GASATT  =  Gaseous  absorption  in  dB/km. 

!  KABS  =  Integer  flag  indicating  whether  or  not  to  compute  gaseous 
!  absorption  loss.  KABS=0  no  absorption  loss;  KABS=1  compute 

!  absorption  loss  based  on  air  temperature  TAIR  and  absolute 

[  humidity  ABSHUM;  KABS=2  compute  absorption  loss  based  on  specified 

I  absorption  attenuation  rate  GAMMAA. 

!  IMPEDANCE : 

1  ALPHAV  =  vertical  polarization  impedance  term  =  i*FKO/RNG. 

!  Cl  =  Coefficient  used  in  vertical  polarization  calculations. 

I  C2  =  Coefficient  used  in  vertical  polarization  calculations. 

I  ClX  =  Constant  dependent  on  each  new  calculated  RT  -  used  to 
I  calculate  Cl  at  next  range  step. 

!  C2X  =  Constant  dependent  on  each  new  calculated  RT  -  used  to 
!  calculate  C2  at  next  range  step. 

!  IG  =  Counter  indicating  current  ground  type  being  modeled. 

!  RK  =  Coefficient  used  in  Cl  and  C2  calculations. 

I  RT  =  complex  root  of  quadratic  equation  for  mixed  transform  method 
!  based  on  Nuttier' s  formulation. 

MISCVAR: 

AEK2  =  2.  *  AEK 

ALPHAD  =  Direct  ray  elevation  angle  in  radians 

ANTREF  =  transmitting  antenna  height  relative  to  the  reference 
height  HMINTER. 

FKO  =  free-space  wavenumber  =  (2*pi)  /  WL 
FK02  =  2.  *  FKO 

FTER  =  logical  flag  -  . TRUE . = terra in  case,  . FALSE. ^smooth  surface  case 
HMREF  =  height  relative  to  HMINTER.  Determined  from  user-provided 

minimum  height  HMIN.  That  is,  if  HMIN  is  minimum  height  input 
by  user  with  respect  to  mean  sea  level,  and  HMINTER  is 
internally  considered  the  new  origin,  then  HMREF  =  HMIN  -  HMINTER. 
HTLIM  =  user-supplied  maximum  height  relative  to  HMINTER,  i.e., 

HTLIM  =  HMAX  -  HMINTER 

I  HYBRID  =  Integer  indicating  which  sub-models  will  be  used: 

0  =  pure  PE  model 

1  =  full  hybrid  model 

2  =  PE  +  XO  model 

IT  PA  =  Number  of  terrain  points  used  internally  in  arrays  TX()  and  TY  ( ) 

IXO  =  Number  of  range  steps  in  XO  calculation  region. 

IZG  =  Output  height  integer  index  indicating  the  start  of  good  loss 
values  (in  PE  region)  for  a  particular  output  range. 
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PLCNST  =  constant  used  in  determining  propagation  loss 
PLCNST  =  201og(2*FKO) . 

RHOR  =  Radar  horizon  range  in  meters  for  0  receiver  height. 

RLOG  =  10.  *  aloglO (  PE  range  ) 

RLOGLST  =  RLOG  of  previous  range  step  (i.e.,  10*alogl0{PE  range-DR)  ) 
RPEST  =  Range  in  meters  at  which  loss  values  from  the  PE  model  will 
start  being  calculated. 

TWOKA  =  Twice  the  effective  earth's  radius  factor  times  the  effective 
earth  radius.  The  effective  earth's  radius  factor  is  calcula¬ 
ted  based  on  a  ray  trace  at  5  degrees  from  the  origin  to  the 
HTLIM.  This  is  used  for  routine  FEM. 

WL  =  Wavelength  in  meters 

YCUR  =  height  of  ground  at  the  current  range  step 

YCURM  =  height  of  ground  midway  between  last  and  current  range  step. 

For  use  when  shifting  profiles  to  be  relative  to  the  local  ground 
height . 

YFREF  =  Ground  elevation  height  at  source. 

YLAST  =  height  of  ground  at  the  last  range  step 

OUTRH: 

DROUT  =  Output  range  step  in  meters 
DZOUT  =  Output  height  increment  in  meters 

PATTERN : 

AFAC  =  constant  used  in  determining  antenna  pattern  factors 

AFAC  =  1.39157  /  sin(  bw  /  2  )  for  SIN(X)/X  and  height-finder 
AFAC  =  ( . 5*ln(2) ) / (sin(bw/2) ) **2  for  GAUSSIAN 
BW  =  antenna  pattern  beamwidth  in  radians 
ELV  =  antenna  pattern  elevation  angle  in  radians 
PELEV  =  sine  of  elevation  angle 
SBW  =  sine  of  the  beamwidth 

UMAX  =  limiting  angle  used  in  cut-off  point  for  SIN(X)/X  and 
generic  height-finder  antenna  pattern  factors 


PE: 

CNST  =  used  in  calculating  ENVPR()  in  routine  PHASE 1 . 

CNST  =  DELP/FKO. 

CON  =  l.e-6  *  FKO;  Constant  used  in  calculation  of  ENVPRO 
DELP  =  mesh  size  in  angle-  (or  p-)  space. 

DELZ  =  Bin  width  in  z-space  =  WL  /  (2*sin  (THETAMAX)  ) 

DR  =  PE  range  step  in  meters 
DR2  *  1/2  PE  range  step  in  meters 
DZ2  =  2 .  *  DELZ 

FNORM  =  normalization  factor  used  for  DFT . 

LN  =  Power  of  2  transform  size,  i.e.  N  =  2**LN 

LNMIN  =  Minimum  power  of  2  transform  size.  LNMIN  =  9  for  smooth 

surface  and  frequencies  <=  3000  MHz.  LNMIN  =  10  all  other 
cases . 

N  =  Transform  size 
N34  =  3/4  *  N 
N4  =  N  /  4 
NM1  =  N-l 

THETA75  =  75%  of  maximum  propagation  angle  in  PE  calculations. 

ZLIM  =  Maximum  internal  height  (HTLIM)  or  .75*ZMAX,  whichever  is  smaller. 
ZMAX  =  Maximum  height  of  PE  calculation  domain  =  N  *  DELZ 

REF PROF : 

HMINTER  =  Minimum  height  of  terrain  profile  in  meters.  This  will  be 
used  to  adjust  entire  terrain  profile  so  all  internal 
calculations  will  be  referenced  to  this  height. 

IS  =  counter  for  current  profile  (for  range-dependent  cases) 

LVLEP  =  Number  of  height/refractivity  levels  in  profile  REFDUM  ( )  ,  HTDUM ( ) 
taken  w.r.t.  reference  height  HMINTER. 

NLVL  =  Number  of  height/refractivity  levels  in  profile  REFREF ( ) , HREF ( ) 
taken  w.r.t.  local  ground  height  at  middle  of  range  step,  YCURM. 
RV2  =  range  of  the  next  refractivity  profile  (for  range -dependent  cases) 
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RO: 

DELXRO  =  RO  range  increment  in  meters 
DMAGSQ(,)  =  direct-ray  magnitude  squared 

HTYDIF  =  height  difference  between  internal  maximum  height,  HTLIM, 
and  initial  ground  height  at  the  source,  YFREF. 

IRON  =  next  index  for  RO  solution  (0  or  1) 

IROP  =  previous  index  for  RO  solution  {-1,  0,  or  1) 

I START =  RO  height  index  at  transmitter 
KMAX  =  maximum  K- index  at  XROP  and  XRON 
KMINN  =  minimum  K- index  at  XRON 
KMINP  =  minimum  K- index  at  XROP 

LEVELS  =.  number  of  levels  defined  in  ZRT ( ) ,  Q(),  and  GR ( )  arrays 
OMEGA ( , )  =  phase  angle  between  direct  &  reflected  rays  in  radians 
PSILIM  =  grazing  angle  of  limiting  ray  in  radians 
RMAGSQ ( , )  =  ref lected-ray  magnitude  squared 
XLIMRO  =  range  of  limiting  ray  in  meters 

XREFLECT  =  Range  at  which  ray  is  reflected  in  RO  and  FE  calculations . 

XRON  =  next  range  for  RO  solution  in  meters 

XROP  =  previous  range  for  RO  solution  in  meters 

ZTOL  =  height  tolerance  for  Newton's  method  in  meters 

SPEC : 

LNP  =  Power  of  2  transform  size  used  in  spectral  estimation  calcs. 
NP34  =  3/4  *  NPNTS 

NPNTS  =  Number  of  points  used  in  top  part  of  PE  region  for  spectral 
estimation. 

NS  =  Transform  size  used  in  spectral  estimation  calcs  =  2**LNP 
XOCON  =  Constant  used  in  determining  outgoing  propagation  angle 
for  XO  calcs  ->  WL  /  (2*NS*DELZ) . 


TROPOV: 

JT1  =  Index  counter  for  ADI ( )  and  TH1 ( )  arrays. 

JT2  =  Index  counter  for  TX{)  and  TY ( )  arrays  indicating  where  receiver 
range  is,  i.e.,  TX(JT2-1)  <  ROUT  <  TX(JT2). 

KTRl  =  Number  of  increasing  tangent  angles  and  ranges  determined  from 
source  height  over  terrain  path  profile. 

R1T  =  Constant  used  in  troposcatter  calcs.  =  RF*ANTREF 
RF  =  Constant  used  in  troposcatter  calcs.  =  4*PI*FREQ/speed  of  light 
(x!0e6 ) 

SN1  =  Term  used  in  troposcatter  loss  calc. 

THETA1S  =  Tangent  angle  from  source  for  smooth  surface. 

TLSTS  =  Troposcatter  loss  term  for  smooth  surface  (non-terrain) . 

TRVAR: 

AATZ  =  local  propagation  angle  at  height  ZLIM  and  range  RATZ 
(used  for  hybrid  model) . 

ALAUNCH  =  Launch  angle  used,  in  radians,  which,  when  traced,  separates 
PE  Sc  XO  regions  from  RO  region 

HTEMP ( )  =  Heights  at  which  ray  is  traced  to  every  range  point  RTEMP(i) 
IAP  =  Index  indicating  when  local  ray  angle  becomes  positive  in  array 
RAYA  ( )  . 

IRATZ  =  Index  of  output  range  step  at  which  ZLIM  is  reached  (for 
hybrid  model  only) .  Indicates  at  what  range  step  begin 
storing  propagation  factor  and  outgoing  angle  for  XO  region. 
RATZ  =  Range  at  which  ZLIM  is  reached  (used  for  hybrid  model) . 

RAYA()  =  Array  containing  all  local  angles  of  traced  ray  ALAUNCH  at 
each  output  range. 

RTEMP ( )  =  Range  steps  for  tracing  to  determine  maximum  PE  angle. 

The  XO  common  block  is  only  used  when  using  hybrid  model. 

XO: 

IZ  =  Counter  for  points  stored  in  FFACZ(,)  array. 

IZINC  =  Integer  increment  for  storing  points  at  top  of  PE  region  to 

start  XO  model.  I.E.,  points  are  stored  at  every  IZINC  range 
step . 

IZMAX  =  Maximum  #  of  points  allocated  for  arrays  associated  with 
XO  calcs . 
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JZLIM 


common  / 
common  / 
common  / 

common  / 
common  / 
common  / 

common  / 
common  / 

common  / 
common  / 
common  / 

common  / 


PE  bin  #  corresponding  to  ZLIM,  i.e.,  ZLIM  =  JZLIM*DELZ . 
absorb  /  gasatt,  kabs 

impedance  /  alphav,  cl,  c2,  clx,  c2x,  ig,  rk,  rt 

miscvar  /  aek2 ,  alphad,  antref,  fko,  f  ko2 ,  fter,  hmref,  htlim,& 
ihybrid,  itpa,  izg,  plcnst,  rhor,  rlog,  rloglst,  Sc 
rpest,  twoka,  wl,  ycur,  ycurm,  yfref,  ylast,  ixo 

outrh  /  drout,  dzout 

pattern  /  afac,  bw,  elv,  pelev,  sbw,  umax 

pe  /  cnst ,  con,  delp,  delz,  dr,  dr2 ,  dz2,  fnorm,  In,  Inmin,  & 
n,  n34,  n4,  nml,  theta75,  zlim,  zmax 

ref prof  /  hminter,  is,  lvlep,  nlvl,  rv2 

ro  /  delxRO,  dmagsq(0 : 1, 0: 88) ,  htydif,  iROp,  iROn,  istart, 
kminn,  kminp,  kmax,  levels,  omega (0 : 1 , 0 : 88) ,  psilim, 
rmagsq(0:l, 0:88) ,  xlimRO,  xreflect,  xROn,  xROp,  ztol 

spec  /  lnp,  np34 ,  npnts,  ns,  xocon,  np4 

tropov  /  jtl,  jt2,  ktrl,  rlt,  rf,  snl,  thetals,  tlsts 

trvar  /  aatz,  alaunch,  htemp { irtemp) ,  iap,  iratz,  ratz,  & 

raya ( irtemp ) ,  r temp ( irtemp ) 

xo  /  iz,  izinc,  izmax,  jzlim 


******************  DYNAMICALLY  ALLOCATED  ARRAYS 


ADI ( )  =  Tangent  ranges  from  source  height  w/  terrain  path  profile. 

ADIF{)  =  Height  array  in  meters  used  for  troposcatter  calcs. 

CN2 ( )  =  Complex  dielectric  constant. 

CURANGO  =  Current  local  angle  for  each  ray  being  traced  in  XO  region. 
CURHT ( )  =  Current  local  height  for  each  ray  being  traced  in  XO  region. 
CURNGO  =  Current  local  range  for  each  ray  being  traced  in  XO  region 
D2S{)  =  Tangent  range  array  in  meters  for  all  output  receiver  heights 
over  smooth  surface. 

ENVPRO  =  Complex  array  containing  refractivity  exponential  term. 

i.e.  ENVPRO  =  expti  *  DR  *  FKO  *  le-6  *  M(z)  ],  where 
M(z)  is  the  refractivity  at  each  PE  bin  height  z. 

FFACZ ( , )  =  2-dimensional  array  containing  propagation  factor  in  dB, 
range,  and  propagation  angle  at  ZLIM.  Used  to  start  XO 
calculations . 

FFACZ (1,IZ)  =  propagation  factor  in  dB  at  current  PE  range 
FFACZ (2, IZ)  =  current  PE  range 

FFACZ (3, IZ)  =  propagation  angle  at  current  PE  range  at  ZLIM 
FFROUT ( )  =  Propagation  factor  in  dB  at  each  output  range  step 
beyond  RATZ  and  at  height  ZLIM 
FILT()  =  Cosine-tapered  (Tukey)  filter  array. 

FILTP ( )  =  Array  filter  for  spectral  estimation  calcs. 

FRSP ( )  =  Complex  array  containing  free-space  propagator  exponential  term. 

i.e.,  FRSP ( )  =  exp [-i  *  DR  *  (FKO  -  sqrt(FKO**2  -  p**2))  ] 

FSLR ( )  =  array  containing  the  free  space  loss  at  every  output  range . 

GR()  =  l.E-6  *  dM/dz  array  used  for  RO  calculations 
GRAD { , )  =  2-dimensional  array  containing  gradients  of  each  refrac¬ 
tivity  profile  vs.  range  from  height  ZLIM  to  HTLIM. 

HFANGR ( )  =  array  of  user-defined  cut-back  angles  in  radians.  This  is 
used  only  for  user-defined  height-finder  antenna  type. 

HLIM()  =  array  containing  height  at  each  output  range  separating  the 
RO  region  from  the  PE  (at  close  ranges)  and  XO  (at  farther 
ranges)  regions 

HREF ( )  =  Heights  of  refractivity  profile  with  respect  to  YREF  (local 
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ground  height) . 

HT ( )  =  Height  array  of  size  N.  Heights  space  every  DELZ. 

HTDUMO  =  Height  array  containing  height  values  for  current  (interpolated) 
profile  in  meters,  relative  to  HMINTER. 

HTFE { )  =  Array  containing  the  height  at  each  output  range  step  separa¬ 
ting  the  flat  earth  region  from  the  RO  region. 

HTOUT ( )  =  Final  height  for  each  ray  traced  in  XO  region  at  range 
ROUT. 

HTR{/)  =  2 -dimensional  array  containing  height  levels  of  each  refrac- 
tivity  profile  vs.  range  from  height  ZLIM  to  HTLIM. 

IGRD ( )  =  Integer  indexes  indicating  at  what  gradient  in  GRAD ( , )  to 
begin  raytracing  for  next  XO  range  step  for  each  ray  in  XO 
region. 

LVL()  =  Number  of  refractivity  levels  in  current  refractivity  profile 
from  ZLIM  to  HTLIM. 

PRFAC ( )  =  Propagation  factor  for  each  ray  traced  in  XO  region  at 
range  ROUT. 

PROFINTO  =  M-unit  profile  interpolated  to  every  DELZ  in  height 
Q()  =  2  *  [RM(i+l) -RM(i) ]  array  used  for  RO  calculations 
RDT ( )  =  Minimum  range  array  (in  meters)  at  which  diffraction  field 
solutions  are  applicable  and  intermediate  region  ends  (for 
smooth  surface)  for  all  output  receiver  heights. 

REFDUM ( )  =  dummy  array  containing  M-unit  values  for  current  (interpolated) 
profile  taken  relative  to  HMINTER. 

REFREF ( )  =  Refractivity  array  w.r.t.  YREF  (local  ground  height). 

RFAC1 ( )  =  Propagation  factor  at  valid  output  height  points  computed 
from  PE  field  at  previous  PE  range,  i.e.,  ULST { ) . 

RFAC2 ( )  =  Propagation  factor  at  valid  output  height  points  computed 
from  PE  field  at  current  PE  range,  i.e.,  U(). 

RLOGO ( )  =  Array  of  logarithm  of  output  ranges,  i.e.,  RLOGO(i)  = 

20.  *  ALOGIO (i*DROUT) . 

RLOSS ( )  =  Propagation  loss  in  dB. 

RM()  =  l.E-6  *  M  array  used  for  RO  calculations 
RNGOUTO  =  array  containing  all  output  ranges  in  meters. 

ROOT{)  =  array  of  RT  to  the  i ' th  power,  i.e.  ROOT (I)  =  RT**I 
ROOTM ( )  =  array  of  -RT  to  the  i ' th  power,  i.e.  ROOTM(I)  =  (-RT)**I 
RSQRD { )  =  double  precision  array  containing  the  square  of  output  ranges 
SLP ( )  =  slope  of  each  segment  of  terrain. 

SPECTRO  =  Field  amplitude  of  spectral  portion  of  PE  field  in  dB. 

TH1 ( )  =  Tangent  angles  from  source  height  w/  terrain  path  profile. 

THETAO ( )  =  Angle  array  -  angles  used  in  determining  common  volume 
scattering  angle. 

THETA2S ( )  =  Tangent  angle  array  from  all  output  receiver  heights  for 
smooth  surface. 

TX ( )  =  range  points  of  terrain  profile  in  meters. 

TY ( )  =  adjusted  height  points  of  terrain  profile  in  meters. 

U ( )  =  Complex  array  containing  PE  field  solution. 

ULST()  =  Complex  array  containg  PE  field  solution  at  previous  range  step. 
W()  =  Difference  equation  of  complex  PE  field  array.  Used  in 

intermediate  calculations  only  for  vertical  polarization. 

XDUM ( )  =  Real  part  of  complex  PE  field  array  U() . 

XP ( )  =  Real  part  of  spectral  portion  of  PE  field. 

YDUM ( )  =  Imaginary  part  of  complex  PE  field  array  U() . 

YM()  =  Particular  solution  of  difference  equation.  Used  in 

intermediate  calculations  only  for  vertical  polarization. 

YP ( )  =  Imaginary  part  of  spectral  portion  of  PE  field. 

ZOUT()  =  array  containing  all  output  heights  in  meters  referenced  to 
HMINTER . 

ZOUTMAO  =  Array  containing  output  heights  in  meters  relative  to  the 
antenna  height  above  ground  at  0  range.  Used  in  FE  model. 
ZOUTPAO  =  Array  containing  output  heights  in  meters  relative  to  the 
image  antenna  height  below  ground  at  0  range.  Used  in  FE 
model . 

ZRO ( )  =  output  height  array  in  meters  referenced  to  ground  elevation 
height  at  source.  Used  for  RO  calculations. 

ZRT()  =  height  array  used  for  RO  calculations  in  meters 
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complex,  allocatable  ::  envpr(:),  frsp{:),  root(:),  rootm(:),  u(:), 

ulst ( : ) ,  w  ( :  )  ,  ym (  :  )  ,  cn2 ( : ) 
public  ::  envpr,  frsp,  root,  rootm,  u,  ulst,  w,  ym,  cn2 

integer ,  allocatable  : :  igrd ( : ) ,  lvl ( : ) 
public  : :  igrd,  lvl 

double  precision,  allocatable  ::  rsqrd(:) 
public  : :  rsqrd 


real ,  allocatable  :  :  adl  ( : )  ,  adif  ( : )  ,  curang  ( : )  ,  curht  ( : )  ,  cumg  { : )  ,  & 

d2s  ( : ) ,  f facz f f rout ( : , : ) ,  filt(:),  & 

f iltp ( : ) ,  f sir ( : ) ,  gr ( : ) ,  grad(:,:),  hfangr{:),  & 
hlim  (  : ) ,  href ( : ) ,  ht ( : ) ,  htdum(:),  htfe(:),  & 

htout ( : ) ,  htr prfac(:),  profint(:),  q(:),  & 


rdt ( : ) ,  refdum{:),  refref{:),  rfacl ( : ) ,  rfac2 ( : ) , & 
rlogo ( : ) ,  rloss ( : )  ,  rm(:),  rngout ( : ) ,  slp(:),  & 

spectr { : ) ,  thl ( : ) ,  thetaO ( : ) ,  theta2s ( : ) ,  tx ( : ) ,  & 
ty ( : ) ,  xdum { : ) ,  xp ( : ) ,  ydum ( : ) ,  yp { : ) ,  zout ( : ) ,  & 

zoutma ( : ) ,  zoutpa { : ) ,  zro ( : ) ,  zrt ( : ) 


public  ::  adl,  adif,  curang,  curht,  curng,  d2s,  ffacz,  ffrout,  & 
filt,  f iltp,  f sir,  gr,  grad,  hfangr,  hlim,  href,  & 

ht,  htdum,  htfe,  htout,  htr,  prfac,  profint,  q,  & 

rdt,  refdum,  refref,  rfacl,  rf ac2 ,  rloss,  rlogo,  rm,  & 
rngout,  sip,  spectr,  thl,  thetaO,  theta2s,  tx,  ty,  & 
xdum,  xp,  ydum,  yp,  zout,  zoutma,  zoutpa,  zro,  zrt 


complex  alphav,  c2x,  rk,  clx,  cl,  c2,  rt 


logical  fter 

data  aek  /  8.4946667e6  / 
data  ek  /  1.3333333  / 
data  radc  /  1.74533e-2  / 
data  rtst  /  2500.  / 


!  4/3  times  mean  earth  radius  in  m 
14/3  effective  earth's  radius  factor 
! degree  to  radian  conversion  factor 
•Range  set  at  2.5  km  to  begin  calculation 
!  of  RO  values. 


contains 

SINFFT  subroutine  (refer  to  Section  8.1.18) 

end  module  apm_mod 
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1.  SCOPE 


1.1  IDENTIFICATION 

The  Advanced  Propagation  Model  (APM)  Version  1.0  computer  software  configuration  item 
(CSCI)  calculates  range-dependent  electromagnetic  (EM)  system  propagation  loss  within  a  hetero¬ 
geneous  atmospheric  medium  over  variable  terrain,  where  the  radio-frequency  index  of  refraction  is 
allowed  to  vary  both  vertically  and  horizontally.  Numerous  Tactical  Environmental  Support  System- 
Next  Century  (TESS-NC)  applications  require  EM-system  propagation  loss  values.  The  APM  model 
described  by  this  document  may  be  applied  to  two  such  TESS-NC  applications,  one  that  displays 
propagation  loss  on  a  range  versus  height  scale  (commonly  referred  to  as  a  coverage  diagram)  and 
one  that  displays  propagation  loss  on  a  propagation  loss  versus  range/height  scale  (commonly  re¬ 
ferred  to  as  a  loss  diagram). 

1.2  DOCUMENT  OVERVIEW 

This  document  specifies  the  test  cases  and  test  procedures  necessary  to  perform  qualification  test¬ 
ing  of  the  APM  CSCI.  A  discussion  of  precise  input  values  of  each  input  variable  required  to  per¬ 
form  the  test  together  with  final  expected  test  results  is  presented. 

2.  REFERENCE  DOCUMENTS 

(a)  Commander-In-Chief,  Pacific  Fleet  Meteorological  Requirement  (PAC  MET)  87-04,  “Range 
Dependent  Electromagnetic  Propagation  Models.” 

(b)  Naval  Oceanographic  Office.  1990.  “Software  Documentation  Standards  and  Coding  Re¬ 
quirements  for  Environmental  System  Product  Development,”  Apr. 

(c)  Naval  Command,  Control  and  Ocean  Surveillance  Center;  Research,  Development,  Test 
and  Evaluation  Division  (NRaD),  1997.  “Terrain  Parabolic  Equation  Model  (TPEM) 
Computer  Software  Configuration  Item  (CSCI)  Documents.”  NRaD  TD  2963  (May)  San 
Diego,  CA. 

(d)  Naval  Command,  Control  and  Ocean  Surveillance  Center;  Research,  Development,  Test 
and  Evaluation  Division  (NRaD).  1997.  “Radio  Physical  Optics  (RPO)  CSCI  Software 
Documents,  RPO  Ver.  1.16”,  NRaD  TD  2403  Rev.  1  (Apr),  San  Diego,  CA. 

(e)  Space  and  Naval  Warfare  (SPAWAR)  Systems  Center,  San  Diego  (SSC  San  Diego).  1998. 
“Software  Requirements  Specification  for  the  Advanced  Propagation  Model  (APM)  CSCI,” 
Aug. 

(f)  Space  and  Naval  Warfare  (SPWAR)  Systems  Center,  San  Diego  (SSC  San  Diego).  1998. 
“Software  Design  Document  for  the  Advanced  Propagation  Model  (APM)  CSCI,” Aug. 

(g)  Barrios,  A.  E.,  “Terrain  Parabolic  Equation  Model  (TPEM)  Version  1.5  User’s  Manual,”  Na¬ 
val  Command,  Control  and  Ocean  Surveillance  Center  RDT&E  Division,  San  Diego,  CA, 
NRaD  TD  2898,  February  1996. 
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3.  TEST  PREPARATIONS 


3.1  HARDWARE  PREPARATION 

Not  applicable 

3.2  SOFTWARE  PREPARATION 

A  short  driver  program,  APMMAIN.F90,  is  provided  in  Section  7.  This  program  exercises  the 
main  software  components,  APMINIT  CSC,  APMSTEP  CSC,  XOINIT  CSC,  XOSTEP  CSC,  and 
APMCLEAN  CSC  that  comprise  the  APM  CSCI.  The  driver  program  demonstrates  how  to  access 
the  APM  CSCI  and  to  exercise  the  test  cases  listed  in  the  following  sections.  It  is  written  to  read  all 
necessary  input  data  for  the  test  cases  from  files  in  a  specific  format.  All  necessary  input  information 
is  presented  in  tabular  form  in  Section  4.3  and  the  input  files  for  each  test  case  are  listed  in  Section  8. 

One  of  the  main  features  of  APM  is  the  use  of  dynamic  allocation  in  most  of  the  arrays  used  for 
both  numeric  calculations  and  as  inputs  to  the  model.  Care  must  be  taken  by  the  TESS-NC  CSCI 
application  designer  to  properly  allocate  memory  and  initialize  all  variable  and  array  inputs  to  APM. 
Ultimately,  it  is  the  responsibility  of  the  TESS-NC  CSCI  application  designer  to  provide  the  neces¬ 
sary  input  in  the  form  required  by  the  APM  CSCI. 

3.2  OTHER  PRETEST  PREPARATION 

None. 


4.  TEST  DESCRIPTIONS 

The  test  specification  for  the  APM  CSCI  consists  of  28  separate  tests  that  exercise  all  subroutines 
and  functions  of  the  CSCI.  For  ease  of  testing,  each  of  these  28  tests  is  given  a  name  describing 
which  portion  of  the  APM  CSCI  is  being  exercised.  All  28  tests  and  their  descriptions  are  listed  in 


table  1. 

Table  1.  Test  names  and  descriptions. 

Test  Name 

Description 

ABSORB 

Gaseous  absorption  attenuation  rate  is  specified. 

BLOCK 

The  terrain  profile  consists  of  a  vertical  flat-topped  block  or  obstacle  in  which  the  ter¬ 
rain  slope  is  undefined. 

COSEC2 

Antenna  pattern  is  of  cosecant-squared  type. 

EDUCT 

The  refractivity  consists  of  a  14  meter  evaporation  duct  profile. 

GASABS 

The  surface  absolute  humidity  and  surface  air  temperature  are  specified  in  order  to 
compute  a  gaseous  absorption  attenuation  rate. 

GAUSS 

Antenna  pattern  is  of  Gaussian  type. 

HIBW 

Large  vertical  beamwidth  is  specified. 

HIEL 

High  elevation  angle  is  specified. 
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Table  1 .  Test  names  and  descriptions.  (Continued) 


Test  Name 

Description 

HI  FREQ 

High  frequency. 

HITRAN 

High  transmitter  antenna  height. 

HORZ 

Horizontal  polarization  antenna  and  standard  atmosphere. 

HTFIND 

Antenna  pattern  is  of  generic  height-finder  type. 

LOBW 

Small  vertical  beamwidth  is  specified. 

LOEL 

Low  elevation  angle  is  specified. 

LOFREQ 

Low  frequency. 

LOTRAN 

Low  transmitter  antenna  height. 

RDLONGB 

Range-dependent  refractivity  over  a  DTED-extracted  terrain  profile  from  Long  Beach 
to  Point  Mugu,  using  vertical  polarization  and  generic  ground  composition  types. 

RNGDEP 

Range-dependent  refractivity  over  smooth  earth  (over-water  case). 

SBDUCT 

300  meter  surface-based  duct. 

SINEX 

Antenna  pattern  is  of  Sine(X)/X  type. 

TROPOS 

Troposcatter  for  smooth  surface  (over-water  case). 

TROPOT 

Troposcatter  over  terrain. 

USERHF 

Antenna  pattern  is  of  specific  height  finder  type,  with  user-specified  cut-back  angles 
and  power  factors. 

VERT 

Vertical  polarization  antenna  is  specified  (short  range  over-water  case,  standard  at¬ 
mosphere). 

VERTMIX 

Vertical  polarization  antenna  over  mixed  land-sea  terrain  path. 

VERTSEA 

Vertical  polarization  antenna  is  specified  (long  range  over-water  case,  ducting  atmos¬ 
phere). 

VERTUSRD 

Vertical  polarization  antenna  and  user-specified  dielectric  ground  constants. 

WEDGE 

The  terrain  profile  consists  of  a  triangular  wedge. 

4.1  REQUIREMENTS  ADDRESSED 

Not  applicable. 

4.2  PREREQUISITE  CONDITIONS 

None. 
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4.3  TEST  INPUTS 


Although  there  are  actual  values  for  all  input  parameters  listed  in  the  input  files  in  Section  8,  some 
are  ignored  depending  on  the  values  of  certain  input  parameters.  Those  input  parameters  that  are 
inapplicable  depending  on  the  test  case  are  listed  as  “N/A”  in  the  tables.  Note  that  for  all  test  cases, 
the  error  flags,  lerr6  and  lerrll,  are  set  to  “.TRUE.”.  These  flags  allow  for  extra  error  control  re¬ 
garding  terrain  and  reffactivity  inputs.  We  recommend  that  these  error  flags  always  be  set  to 
“.TRUE.”.  However,  we  allowed  the  capability  of  the  TESS-NC  applications  designer  to  bypass 
these  error  controls  according  to  the  application. 

The  external  environmental  data  element  requirements  are  listed  in  table  2  for  each  test  name, 
with  tables  3  through  7  providing  specific  height  and  M-unit  values.  The  external  EM  system  data 
element  requirements  are  listed  in  table  8. 
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Table  2.  External  environmental  data  element  requirements.3 


hmsl 

refmsl 

mgprof 

absh[m 

Yo 

Test  Name 

Table 

Table 

hip 

Table 

g/m3 

°c 

dB/km 

ABSORB 

3 

3 

1 

2 

0. 

0. 

.146 

BLOCK 

3 

3 

1 

2 

0. 

0. 

0. 

COSEC2 

3 

3 

1 

2 

0. 

0. 

0. 

EDUCT 

5 

5 

1 

21 

0. 

0. 

0. 

GASABS 

3 

3 

1 

2 

0. 

25. 

0. 

GAUSS 

3 

3 

1 

2 

o. 

0. 

0. 

0. 

HIBW 

3 

3 

1 

2 

0. 

0. 

0. 

0. 

HIEL 

3 

3 

1 

2 

0. 

0. 

0. 

0. 

HIFREQ 

3 

3 

1 

2 

0. 

0. 

0. 

0. 

HITRAN 

3 

3 

1 

2 

0. 

0. 

0. 

0. 

HORZ 

3 

3 

1 

2 

0. 

0. 

0. 

0. 

HTFIND 

3 

3 

1 

2 

0. 

0. 

0. 

0. 

LOBW 

3 

3 

1 

2 

0. 

0. 

0. 

0. 

LOEL 

3 

3 

1 

2 

0. 

0. 

0. 

0. 

LOFREQ 

3 

3 

1 

2 

0. 

0. 

0. 

0. 

LOTRAN 

3 

3 

1 

2 

0. 

0. 

0. 

0. 

RDLONGB 

6 

6 

2 

4 

6 

0. 

0. 

0. 

RNGDEP 

7 

7 

2 

4 

7 

0. 

0. 

0. 

SBDUCT 

4 

4 

1 

4 

0. 

0. 

0. 

0. 

SINEX 

3 

3 

1 

2 

0. 

0. 

0. 

0. 

TROPOS 

3 

3 

1 

2 

0. 

0. 

0. 

0. 

TROPOT 

3 

3 

1 

2 

0. 

0. 

0. 

0. 

USERHF 

3 

3 

1 

2 

0. 

0. 

0. 

0. 

VERT 

3 

3 

1 

2 

0. 

0. 

0. 

0. 

VERTMIX 

3 

3 

1 

2 

0. 

0. 

0. 

0. 

VERTSEA 

4 

4 

1 

4 

0. 

0. 

0. 

0. 

VERTUSRD 

3 

3 

1 

2 

0. 

0. 

0. 

0. 

WEDGE 

3 

3 

1 

2 

0. 

0. 

0. 

0. 

"The  interpolation  flag,  iextra,  is  set  to  0  for  all  test  cases. 


Table  3.  Standard  atmosphere  with  1 18-M/km  gradient. 


1 

refmsl u 

/ 

(M-unit) 

1 

0 

350 

2 

1000 

468 

5 


Table  4.  300-meter  surface-based  duct  atmosphere. 


/ 

— 

reftnslu 

(M-unit) 

1 

0.0 

339.0 

2 

250.0 

368.5 

3 

300.0 

319.0 

4 

1000.0 

401.6 

Table  5.  Atmosphere  with  14-meter  evaporation  duct. 


/ 

■m 

refmslx 

(M-unit) 

1 

0.000 

339.00 

2 

0.040 

335.10 

3 

0.100 

333.66 

4 

0.200 

332.60 

5 

0.398 

331.54 

6 

0.794 

330.51 

7 

1.585 

329.53 

8 

4.362 

328.65 

9 

6.310 

327.96 

10 

12.589 

327.68 

11 

14.000 

327.67 

12 

25.119 

328.13 

13 

39.811 

329.25 

14 

50.119 

330.18 

15 

63.096 

331.44 

16 

79.433 

334.32 

17 

100.000 

335.33 

18 

125.893 

338.20 

19 

158.489 

341.92 

20 

199.526 

346.69 

21 

209.526 

347.87 
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Table  6.  Range-dependent  atmosphere,  standard  atmosphere  to  surface-based  duct. 


Standard  Atmosphere 
mgprof,  =  0  km 

Surface-based  Duct 

mgprof  =  100  km 

i 

hmslu 

(meters) 

refmsla 

(M-unit) 

hmsli2 

(meters) 

refrnsli2 

(M-unit) 

i 

0.0 

350.0 

0.0 

339.0 

2 

0.0 

350.0 

250.0 

368.5 

3 

0.0 

350.0 

300.0 

319.0 

4 

1000.0 

468.0 

1000.0 

401.6 

Table  7.  Range-dependent  atmosphere,  surface-based  duct  to  high  elevated  duct. 


Surface-based  Duct 

rngprof,  =  0.  Km 

High  Elevated  Duct 
rngprof.,  =  250.  km 

/ 

hmslit 

(meters) 

refmsiiA 

(M-unit) 

hmsli2 

(meters) 

refmsli2 

(M-unit) 

1 

0.0 

330.0 

0.0 

330.0 

2 

100.0 

342.5 

600.0 

405.0 

3 

230.0 

312.5 

730.0 

375.0 

4 

2000.0 

517.8 

2000.0 

522.3 

Table  8.  External  EM  System  data  element  requirements. 


Table  8.  External  EM  System  data  element  requirements.  (Continued) 


Test  Name 

fsiHz 

(MHz) 

ant,, 

(meters) 

tp at 

note  a 

ipoi 

note  b 

Mm, 

(deg) 

M„ 

(deg) 

nfcics 

hfang 

(deg) 

hffac 

LOFREQ 

100.0 

25. 

1 

0 

N/A 

N/A 

N/A 

N/A 

N/A 

LOTRAN 

1000.0 

1. 

1 

0 

N/A 

N/A 

N/A 

N/A 

N/A 

RDLONGB 

150.0 

100. 

0 

N/A 

N/A 

N/A 

N/A 

N/A 

RNGDEP 

3000.0 

25. 

0 

N/A 

N/A 

N/A 

N/A 

N/A 

SBDUCT 

3000.0 

25. 

0 

5. 

0. 

N/A 

N/A 

N/A 

SINEX 

1000.0 

25. 

0 

1. 

0. 

N/A 

N/A 

N/A 

TROPOS 

100.0 

25. 

1 

0 

N/A 

N/A 

N/A 

N/A 

N/A 

TROPOT 

100.0 

25. 

1 

0 

N/A 

N/A 

N/A 

N/A 

N/A 

USERHF 

1000.0 

25. 

6 

0 

1. 

0. 

10 

notec 

noted 

VERT 

1000.0 

25. 

1 

1 

N/A 

N/A 

N/A 

N/A 

N/A 

VERTMIX 

100.0 

10. 

1 

1 

N/A 

N/A 

N/A 

N/A 

N/A 

VERTSEA 

100.0 

25. 

1 

1 

N/A 

N/A 

N/A 

N/A 

N/A 

VERTUSRD 

100.0 

10. 

1 

1 

N/A 

N/A 

N/A 

N/A 

N/A 

WEDGE 

1000.0 

25. 

1 

0 

N/A 

N/A 

N/A 

N/A 

N/A 

“Antenna  Pattern:  1  =  Omni-directional:  2  =  Gaussian;  3  =  Sine(X)/X;  4  =  Cosecant-squared;  5  =  Generic 
height-finder;  6  =  User-specified  height  finder. 

bPolarization:  0  =  Horizontal;  1  =  Vertical 

'Power  reduction  angles  (hfang):  1.0, 1.5,  2.0,  2.5,  3.0,  3.5,  4.0,  4.5,  5.0,  5.5 
“Power  reduction  factors  (hffac):  0.9,  0.8, 0.7,  0.6,  0.5,  0.4,  0.3,  0.2,  0.1,  0.0 


The  external  implementation  data  element  requirements  that  must  be  specified  for  each  test  are 
listed  in  table  9. 


Table  9.  External  implementation  data  element  requirements. 


Test  Name 

lerr6 

Ierrl2 

nra,u 

r 

max 

(meters) 

h„mi 

(meters) 

h^ 

(meters) 

f iropo 

ABSORB 

.true. 

.true. 

1 

20 

50,000.0 

0.0 

200.0 

0 

BLOCK 

.true. 

.true. 

1 

20 

50,000.0 

0.0 

1000.0 

0 

COSEC2 

.true. 

.true. 

1 

20 

50,000.0 

0.0 

2000.0 

0 

EDUCT 

.true. 

.true. 

1 

20 

50,000.0 

0.0 

200.0 

0 

GASABS 

.true. 

.true. 

1 

20 

50,000.0 

0.0 

200.0 

0 

GAUSS 

.true. 

.true. 

1 

20 

50,000.0 

0.0 

2000.0 

0 

HIBW 

.true. 

.true. 

1 

20 

50,000.0 

0.0 

2000.0 

0 

HIEL 

.true. 

.true. 

1 

20 

50,000.0 

0.0 

20,000.0 

0 
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Table  9.  External  implementation  data  element  requirements.  (Continuted) 


Test  Name 

lerr6 

lerrll 

^ rout 

nzoia 

r ■— 

(meters) 

Kin 

(meters) 

hmnr 

max 

(meters) 

^ tropo 

HIFREQ 

.true. 

.true. 

1 

20 

50,000.0 

0.0 

200. 

0 

HITRAN 

.true. 

.true. 

1 

20 

50,000.0 

0.0 

1000.0 

0 

HORZ 

.true. 

.true. 

1 

20 

50,000.0 

0.0 

2000.0 

0 

HTFIND 

.true. 

.true. 

1 

20 

50,000.0 

0.0 

2000.0 

0 

LOBW 

.true. 

.true. 

1 

20 

50,000.0 

0.0 

2000.0 

0 

LOEL 

.true. 

.true. 

1 

20 

50,000.0 

0.0 

20,000.0 

0 

LOFREQ 

.true. 

.true. 

1 

20 

50,000.0 

0.0 

5000.0 

0 

LOTRAN 

.true. 

.true. 

1 

20 

50,000.0 

0.0 

10,000.0 

0 

RDLONGB 

.true. 

.true. 

1 

20 

100,000.0 

0.0 

1000.0 

0 

RNGDEP 

.true. 

.true. 

1 

20 

250,000.0 

0.0 

2000.0 

0 

SBDUCT 

.true. 

.true. 

1 

20 

200,000.0 

0.0 

5000.0 

0 

SINEX 

.true. 

.true. 

1 

20 

50,000.0 

0.0 

2000.0 

0 

TROPOS 

.true. 

.true. 

1 

20 

200,000.0 

0.0 

2000.0 

1 

TROPOT 

.true. 

.true. 

1 

20 

200,000.0 

0.0 

2000.0 

1 

USERHF 

.true. 

.true. 

1 

20 

50,000.0 

0.0 

2000.0 

0 

VERT 

.true. 

.true. 

1 

20 

50,000.0 

0.0 

2000.0 

0 

VERTMIX 

.true. 

.true. 

1 

20 

50,000.0 

0.0 

1000.0 

0 

VERTSEA 

.true. 

.true. 

1 

20 

300,000.0 

0.0 

1000.0 

0 

VERTUSRD 

.true. 

.true. 

1 

20 

50,000.0 

0.0 

1000.0 

0 

WEDGE 

.true. 

.true. 

1 

20 

100,000.0 

0.0 

1000.0 

0 

The  external  terrain  data  element  requirements  are  listed  in  table  10.  Terrain  profiles  used  for  spe¬ 
cific  test  cases  are  listed  in  tables  1 1  through  15. 


Table  1 0.  External  terrain  data  element  requirements. 


Test  Name 

terx 

Table 

tery 

Table 

K 

V 

igrnd 

Table 

rgrnd 

Table 

Dielec 

(SrPY 

ABSORB 

N/A 

N/A 

N/A 

N/A 

N/A 

N/A 

N/A 

BLOCK 

11 

11 

6 

N/A 

N/A 

N/A 

N/A 

COSEC2 

N/A 

N/A 

N/A 

N/A 

N/A 

N/A 

N/A 

EDUCT 

N/A 

N/A 

N/A 

N/A 

N/A 

N/A 

N/A 

GASABS 

N/A 

N/A 

N/A 

N/A 

N/A 

N/A 

N/A 

GAUSS 

N/A 

N/A 

N/A 

N/A 

N/A 

N/A 

N/A 

HIBW 

N/A 

N/A 

N/A 

N/A 

N/A 

N/A 

N/A 
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Table  10.  External  terrain  data  element  requirements.  (Continued) 


Test  Name 

m 

tery 

Table 

** 

K 

igmd 

Table 

rgrnd 

Table 

dielec 

(e.cf 

HIEL 

N/A 

N/A 

N/A 

N/A 

N/A 

N/A 

HIFREQ 

N/A 

N/A 

N/A 

N/A 

N/A 

N/A 

N/A 

HITRAN 

N/A 

N/A 

N/A 

N/A 

N/A 

N/A 

N/A 

HORZ 

N/A 

N/A 

N/A 

N/A 

N/A 

N/A 

N/A 

HTFIND 

N/A 

N/A 

N/A 

N/A 

N/A 

N/A 

N/A 

LOBW 

N/A 

N/A 

N/A 

N/A 

N/A 

N/A 

N/A 

LOEL 

N/A 

N/A 

N/A 

N/A 

N/A 

N/A 

N/A 

LOFREQ 

N/A 

N/A 

N/A 

N/A 

N/A 

N/A 

N/A 

LOTRAN 

N/A 

N/A 

N/A 

N/A 

N/A 

N/A 

N/A 

RDLONGB 

4-12 

4-12 

167 

6 

4-13 

4-13 

N/A 

RNGDEP 

N/A 

N/A 

N/A 

N/A 

N/A 

N/A 

N/A 

SBDUCT 

N/A 

N/A 

N/A 

N/A 

N/A 

N/A 

N/A 

SINEX 

N/A 

N/A 

N/A 

N/A 

N/A 

N/A 

N/A 

TROPOS 

N/A 

N/A 

N/A 

N/A 

N/A 

N/A 

N/A 

TROPOT 

12 

12 

167 

6 

13 

13 

N/A 

USERHF 

N/A 

N/A 

N/A 

N/A 

N/A 

N/A 

N/A 

VERT 

N/A 

N/A 

N/A 

1 

0 

0. 

N/A 

VERTMIX 

14 

14 

2 

2 

14 

14 

N/A 

VERTSEA 

N/A 

N/A 

N/A 

1 

0 

0. 

N/A 

VERTUSRD 

N/A 

N/A 

N/A 

1 

7 

0. 

3.,  6e-4 

WEDGE 

15 

15 

5 

N/A 

N/A 

N/A 

N/A 

a£  =  relative  permittivity;  a  =  conductivity  (S/m) 


Table  1 1 .  Terrain  profile  for  Test  Case  BLOCK. 


i 

tery , 

(meters) 

i 

0.0 

2 

3 

200.0 

4 

5 

0.0 

6 

0.0 
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Table  12.  Terrain  profile  for  Test  Case  RDLONGB. 


i 

terx 

(meters) 

tery. 

(meters) 

■ 

terxt 

(meters) 

tery, 

(meters) 

■ 

terxi 

(meters) 

teryi 

(meters) 

1 

0.0 

8.0 

57 

20100. 

22.0 

113 

79200.0 

184.0 

2 

300.0 

8.0 

58 

20400. 

23.0 

114 

79500.0 

226.0 

3 

600.0 

9.0 

59 

20700. 

24.0 

115 

79800.0 

152.0 

4 

900.0 

9.0 

60 

21000. 

24.0 

116 

80100.0 

201.0 

5 

1200.0 

10.0 

61 

21300. 

25.0 

117 

80400.0 

244.0 

6 

1500.0 

11.0 

62 

21600. 

26.0 

118 

80700.0 

152.0 

7 

1800.0 

12.0 

63 

21900. 

27.0 

119 

81000.0 

143.0 

8 

2100.0 

13.0 

64 

22200. 

27.0 

120 

81300.0 

91.0 

9 

2400.0 

14.0 

65 

22500. 

28.0 

121 

81600.0 

107.0 

10 

2700.0 

15.0 

66 

22800. 

29.0 

122 

81900.0 

152.0 

11 

3000.0 

17.0 

67 

23400. 

29.0 

123 

82200.0 

152.0 

12 

3300.0 

19.0 

68 

23700. 

30.0 

124 

82500.0 

170.0 

13 

3600.0 

21.0 

69 

24600. 

30.0 

125 

82800.0 

152.0 

14 

3900.0 

23.0 

70 

24900. 

32.0 

126 

83100.0 

66.0 

15 

4200.0 

25.0 

71 

25200. 

34.0 

127 

83400.0 

70.0 

16 

4500.0 

27.0 

72 

25500. 

38.0 

128 

83700.0 

121.0 

17 

4800.0 

28.0 

73 

26100. 

38.0 

129 

84000.0 

152.0 

18 

5100.0 

30.0 

74 

26400. 

36.0 

130 

84300.0 

170.0 

19 

5400.0 

31.0 

75 

26700. 

:  34.0 

131 

84600.0 

141.0 

20 

5700.0 

31.0 

76 

27000. 

32.0 

132 

84900.0 

139.0 

21 

6000.0 

29.0 

77 

27300. 

27.0 

133 

85200.0 

147.0 

22 

6300.0 

23.0 

78 

27600. 

15.0 

134 

85500.0 

177.0 

23 

6600.0 

14.0 

79 

27900. 

6.0 

135 

85800.0 

152.0 

24 

6900.0 

9.0 

80 

28200. 

1.0 

136 

86100.0 

61.0 

25 

7200.0 

7.0 

81 

28500. 

0.0 

137 

86700.0 

61.0 

26 

7500.0 

7.0 

82 

64500. 

0.0 

138 

87000.0 

70.0 

27 

7800.0 

9.0 

83 

64800. 

8.0 

139 

87300.0 

44.0 

28 

8100.0 

11.0 

84 

65100. 

30.0 

140 

87600.0 

11.0 

29 

8400.0 

14.0 

85 

65400. 

39.0 

141 

87900.0 

1.0 

30 

8700.0 

13.0 

86 

65700. 

61.0 

142 

89400.0 

1.0 

31 

9300.0 

13.0 

87 

66600. 

61.0 

143 

89700.0 

61.0 

32 

9600.0 

12.0 

88 

66900. 

24.0 

144 

90000.0 

84.0 

33 

9900.0 

11.0 

89 

67200. 

14.0 

145 

90300.0 

152.0 

34 

10200.0 

8.0 

90 

67500. 

26.0 

146 

90600.0 

152.0 

35 

10800.0 

8.0 

91 

67800. 

16.0 

147 

90900.0 

101.0 

36 

11100.0 

7.0 

92 

68100. 

1.0 

148 

91200.0 

40.0 

37 

12600.0 

7.0 

93 

68400. 

1.0 

149 

91500.0 

15.0 

38 

12900.0 

6.0 

94 

68700. 

0.0 

150 

91800.0 

20.0 

39 

14400.0 

6.0 

95 

73800. 

0.0 

151 

92100.0 

2.0 

40 

14700.0 

7.0 

96 

74100. 

1.0 

152 

92400.0 

10.0 

41 

15000.0 

8.0 

97 

74400. 

1.0 

153 

92700.0 

4.0 
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Table  12.  Terrain  profile  for  Test  Case  RDLONGB.  (Continued) 


i 

terxt 

(meters) 

teryr 

(meters) 

i 

ten, 

(meters) 

tery, 

(meters) 

i 

terxt 

(meters) 

tery. 

(meters) 

42 

15300.0 

8.0 

98 

74700. 

10.0 

154 

93000.0 

1.0 

43 

15600.0 

9.0 

99 

75000.0 

8.0 

155 

93300.0 

1.0 

44 

15900.0 

10.0 

100 

75300.0 

39.0 

156 

93600.0 

0.0 

45 

16200.0 

11.0 

101 

75600.0 

45.0 

157 

93900.0 

1.0 

46 

16500.0 

11.0 

102 

75900.0 

53.0 

158 

96300.0 

1.0 

47 

16800.0 

12.0 

103 

76200.0 

61.0 

159 

96600.0 

0.0 

48 

17400.0 

12.0 

104 

76500.0 

61.0 

160 

96900.0 

1.0 

49 

17700.0 

13.0 

105 

76800.0 

82.0 

161 

97500.0 

1.0 

50 

18000.0 

13.0 

106 

77100.0 

61.0 

162 

97800.0 

2.0 

51 

18300.0 

14.0 

107 

77400.0 

78.0 

163 

98100.0 

3.0 

52 

18600.0 

15.0 

108 

77700.0 

61.0 

164 

99300.0 

3.0 

53 

18900.0 

16.0 

109 

78000.0 

129.0 

165 

99600.0 

2.0 

54 

19200.0 

18.0 

110 

78300.0 

30.0 

166 

99900.0 

2.0 

55 

19500.0 

20.0 

111 

78600.0 

46.0 

167 

100200.0 

1.0 

56 

19800.0 

21.0 

112 

78900.0 

159.0 

Table  13.  Table  of  ground  constants  for  terrain  profile  of  table  12. 


hr 

igrndi 

(Note  a) 

rgmdi 

(meters) 

1 

2 

0 

2 

0 

28,500 

3 

3 

64,800 

4 

0 

68,700 

5 

4 

74,100 

6 

0 

100,200 

‘Ground  composition  type:  0  =  sea  water;  1  =  fresh  water;  2  =  wet  ground;  3  =  medium  dry  ground; 

4  =  very  dry  ground;  5  =  ice  at  -1  °C;  6  =  ice  at  -10  °C;  7  =  user-defined  permittivity  and  conductivity. 


Table  14.  Terrain  profile  for  Test  Case  VERTMIX. 


i 

terx: 

(meters) 

tery , 

(meters) 

hr 

igmd. 

(Note  a) 

rgmd. 

(meters) 

i 

0. 

0. 

1 

4 

0. 

2 

50,000. 

0. 

2 

0 

25000. 

’Ground  composition  type:  0  =  sea  water;  1  =  fresh  water;  2  =  wet  ground;  3  =  medium  dry  ground; 

4  =  very  dry  ground;  5  =  ice  at  -1  °C;  6  =  ice  at  -10  °C;  7  =  user-defined  permittivity  and  conductivity. 
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Table  15.  Terrain  profile  for  Test  Case  WEDGE. 


i 

terx, 

(meters) 

teryt 

(meters) 

i 

0.0 

0.0 

2 

45000.0 

0.0 

3 

50000.0 

200.0 

4 

55000.0 

0.0 

5 

100000.0 

0.0 

4.4  EXPECTED  TEST  RESULTS 

The  expected  test  result  propagation  loss  versus  height  values  for  each  of  the  28  test  cases  are 
listed  in  tabular  form  in  tables  16  through  43. 

Table  1 6.  Expected  Output  for  ABSORB  Test.  Table  17.  Expected  output  for  BLOCK  Test. 


Height 

(meters) 

Propagation  Loss 
(dB) 

Height 

(meters) 

Propagation  Loss 
(dB) 

10.0 

212.9 

50.0 

173.6 

20.0 

199.3 

100.0 

170.1 

30.0 

188.9 

150.0 

167.0 

40.0 

180.1 

200.0 

162.4 

50.0 

172.2 

250.0 

157.0 

60.0 

165.5 

300.0 

151.4 

70.0 

160.1 

350.0 

145.8 

80.0 

156.7 

400.0 

140.3 

90.0 

156.5 

450.0 

135.0 

100.0 

163.2 

500.0 

129.6 

110.0 

159.3 

550.0 

124.2 

120.0 

156.0 

600.0 

120.5 

130.0 

167.8 

650.0 

121.0 

140.0 

155.7 

700.0 

128.1 

150.0 

163.0 

750.0 

141 .3 

160.0 

156.1 

800.0 

125.3 

170.0 

161 .9 

850.0 

121.3 

180.0 

155.7 

900.0 

120.5 

190.0 

164.5 

950.0 

122.1 

200.0 

154.9 

1000.0 

127.5 
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Table  24.  Expected  output  for  HIFREQ  Test. 


Height 

(meters) 

Propagation  Loss 
(dB) 

10.0 

205.6 

20.0 

192.0 

30.0 

181.6 

40.0 

172.8 

50.0 

164.9 

60.0 

158.2 

70.0 

152.8 

80.0 

149.4 

90.0 

149.2 

100.0 

155.9 

110.0 

152.0 

120.0 

148.7 

130.0 

160.5 

140.0 

148.4 

150.0 

155.7 

160.0 

148.8 

170.0 

154.6 

180.0 

148.4 

190.0 

157.2 

200.0 

147.6 

Table  25.  Expected  output  for  HITRAN  Test. 


Height 

(meters) 

Propagation  Loss 
(dB) 

50.0 

126.3 

100.0 

121.8 

150.0 

138.1 

200.0 

121.4 

250.0 

134.6 

300.0 

122.0 

350.0 

124.4 

400.0 

127.7 

450.0 

120.9 

500.0 

131 .4 

550.0 

123.2 

600.0 

121.5 

650.0 

148.1 

700.0 

121 .7 

750.0 

122.3 

800.0 

137.7 

850.0 

121.1 

900.0 

123.2 

950.0 

132.4 

1000.0 

120.8 

Table  28.  Expected  output  for  LOBW  Test.  Table  29.  Expected  output  for  LOEL  Test. 


Height 

(meters) 

Propagation  Loss 
(dB) 

Height 

(meters) 

Propagation  Loss 
(dB) _ 

100.0 

133.8 

1000.0 

376.4 

200.0 

124.0 

2000.0 

376.4 

300.0 

123.2 

3000.0 

376.4 

400.0 

132.9 

4000.0 

376.4 

500.0 

133.0 

5000.0 

358.2 

600.0 

134.1 

6000.0 

254.5 

700.0 

146.4 

7000.0 

181.7 

800.0 

151.8 

8000.0 

139.4 

900.0 

156.6 

9000.0 

126.6 

1000.0 

171.5 

10000.0 

142.7 

1100.0 

181.5 

11000.0 

186.5 

1200.0 

190.4 

12000.0 

257.2 

1300.0 

208.4 

13000.0 

353.6 

1400.0 

222.4 

14000.0 

376.7 

1500.0 

235.6 

15000.0 

376.8 

1600.0 

256.6 

16000.0 

376.8 

1700.0 

274.6 

17000.0 

376.9 

1800.0 

292.0 

18000.0 

376.9 

1900.0 

316.2 

19000.0 

377.0 

2000.0 

338.1 

20000.0 

377.1 

19 


Table  32.  Expected  output  for  RDLONGB  Test. 


Height  Propagation  Loss 
(meters)  (dB 


50.0  145 

100.0  139 


Table  33.  Expected  output  for  RNGDEP  Test 


Propagation  Loss 


H 

meters 


0. 

0. 

0. 

0. 


(dB) 


199.7 

195.7 

202.5 

178.6 

141.9 

135.4 

150.9 
164.2 

166.8 

182.9 

196.6 

197.5 

200.5 

195.1 

193.1 

191.7 

192.2 

194.2 

196.3 
193.0 


Table  36.  Expected  output  for  TROPOS  Test.  Table  37.  Expected  output  for  TROPOT  Test. 


Table  42.  Expected  output  for  VERTUSRD  Test. 


Height 

(meters) 

Propagation  Loss 
(dB) 

141.0 

100.0 

134.4 

150.0 

130.3 

127.2 

250.0 

124.7 

300.0 

122.7 

350.0 

120.9 

400.0 

119.4 

450.0 

118.1 

500.0 

116.9 

550.0 

115.9 

600.0 

114.9 

650.0 

114.1 

700.0 

113.3 

750.0 

112.6 

800.0 

112.0 

850.0 

111.4 

900.0 

110.8 

950.0 

110.3 

1000. 

109.8 

Table  43.  Expected  output  for  WEDGE  Test, 


Height 

(meters) 

Propagation  Loss 
(dB) 

50.0 

157.6 

156.4 

150.0 

155.8 

155.0 

250.0 

154.6 

154.9 

350.0 

155.1 

400.0 

152.7 

450.0 

149.2 

500.0 

146.7 

550.0 

144.6 

600.0 

141.4 

650.0 

700.0 

750.0 

129.5 

800.0 

126.7 

850.0 

126.0 

900.0 

127.9 

950.0 

127.8 

1000.0 

129.5 

4.5  CRITERIA  FOR  EVALUATING  RESULTS 

The  calculated  propagation  loss  in  dB  should  match  the  numerical  values  in  each  table  at  each  of 
the  20  levels  shown  to  within  0.1  dB  (1  cB).  APM  rounds  its  output  loss  values  to  the  nearest  1  cB, 
and  hence  it  is  possible  for  differences  of  1  cB  to  exist  between  different  implementations  of  APM. 
It  is  expected,  however,  that  in  most  cases  the  values  will  match  those  in  tables  16  through  43  ex¬ 
actly. 

4.6  TEST  PROCEDURE 

1.  Compile  for  execution,  the  APM  CSCI,  the  driver  program  APMMAIN.F90,  and  the  module 
APM_MOD.F90. 

2.  An  input  data  file  has  been  provided,  as  a  text  file,  for  each  test  case. 

3.  The  APM  CSCI  is  executed  in  a  form  that  reads  the  input  data  file,  performs  the  calculations, 
and  writes  the  output  to  a  text  file. 

4.  The  output  file  is  compared  to  the  final  expected  test  results  to  determine  satisfactory  per¬ 
formance. 


4.7  ASSUMPTIONS  AND  CONSTRAINTS 

Input  data  elements  are  assumed  to  be  constrained  by  the  limits  listed  within  Tables  1  through  4  of 
the  Software  Requirements  Specification,  reference  e. 
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5.  REQUIREMENTS  TRACEABILITY 

1.  The  provided  driver  program  that  accesses  the  APM  CSCI  will  create  an  output  file  for  each  test 
case.  The  output  file  will  have  the  same  prefix  name  as  the  input  file.  The  extension  is  “.OUT*. 
This  output  file  contains  height  in  meters  and  corresponding  propagation  loss  in  dB  that  should 
correspond  to  the  entries  in  tables  16  through  43  for  each  test  case. 

2.  The  provided  program  APMMAIN.FOR,  when  compiled  with  the  APM  CSCI,  will  read  the  pro¬ 
vided  input  files  containing  all  necessary  information  for  each  test  case.  Each  input  file  is  named 
for  each  test  case,  with  a  “.IN”  extension. 

6.  NOTES 

Table  44  is  a  glossary  of  acronyms  and  abbreviations  used  within  this  document. 


Table  44.  Acronyms  and  abbreviations. 


Term 

Definition 

abs,„m 

Surface  absolute  humidity  (g/m3) 

ant„, 

Antenna  height 

APM 

Advanced  Propagation  Model 

A. 

Antenna  vertical  beam  width  (degrees) 

cB 

Centibel 

CSC 

Computer  Software  Component 

CSCI 

Computer  Software  Configuration  Item 

dB 

Decibel 

dielec 

Two-dimensional  array  of  relative  permittivity  and 
conductivity 

A 

Antenna  elevation  angle  (degrees) 

EM 

Electromagnetic 

FORTRAN 

Formula  T  ranslation 

/«»: 

EM  system  frequency  (MHz) 

r„ 

Surface  specific  attenuation  rate  (dB/km) 

hfang 

User-defined  height-finder  power  reduction  angle 
array  (deg) 

hffac 

User-defined  power  reduction  factor  array 

Kai 

Maximum  height  output  for  a  particular  application 
of  APM. 
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Table  44.  Acronyms  and  abbreviations.  (Continued) 


Term 

Definition 

Kin 

Minimum  height  output  for  a  particular  application  of 
APM. 

hmsl 

refractivity  profile  height  array 

^extra 

Extrapolation  flag  for  refractivity  profiles  entered 
below  mean  sea  level 

K 

Number  of  ground  composition  types  for  particular 
application  of  APM 

igrnd 

Ground  composition  type  array 

ipa 

Antenna  pattern 

K 

Antenna  polarization 

Number  of  terrain  points  for  particular  application  of 
APM 

Ifropo 

Flag  to  include  troposcatter  calculations 

lerr6 

Controlling  logical  flag  for  error  -6 

lerrl2 

Controlling  logical  flag  for  error  -12 

Ivlp 

Number  of  levels  in  refractivity  profiles  for  particular 
application  of  APM 

km 

Kilometers 

m 

Meters 

N/A 

Not  applicable 

"foe. 

Number  of  power  reduction  factors  and  cut-back 
angles  for  user-defined  height  finder  radar 

nrrof 

Number  of  refractivity  profiles  for  particular  applica¬ 
tion  of  APM 

nro«, 

Number  of  range  output  points  for  a  particular  ap¬ 
plication  of  APM. 

Number  of  height  output  points  for  a  particular  ap¬ 
plication  of  APM. 

refmsl 

Refractivity  profile  M-unit  array 

rgrnd 

Round  composition  type  range  array 

r 

max 

Maximum  range  output  for  a  particular  application 
of  APM. 
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Table  44.  Acronyms  and  abbreviations.  (Continued) 


Term 

Definition 

rngprof 

Refractivity  profile  range  array 

Surface  air  temperature  (°C) 

terx 

Terrain  profile  range  array 

tery 

Terrain  profile  height  array 

TESS-NC 

Tactical  Environmental  Support  System-Next  Cen¬ 
tury 
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7.  SAMPLE  PROGRAM  LISTING 


The  sample  driver  program  APMMAIN.FOR,  to  exercise  the  APM  CSCI  is  provided  below. 


!  This  is  a  sample  driver  program  for  APM  routines  APMINIT,  APMSTEP, 
l  XOINIT,  and  XOSTEP .  All  numeric  parameters  passed  to  APMINIT  and 
i  APMSTEP  must  be  in  metric  units.  All  input  arrays  are  dynamically 
I  allocated  and  are  dimensioned  with  variable  sizes. 

program  apmmain 

use  apm_mod 

! MLOSS  must  be  declared  an  INTEGER *2  allocatable  array. 

! ITLOSS  is  a  dummy  array  and  will  be  used  to  store  entire  loss  grid. 

integer*2,  allocatable  ::  mloss (:) ,  itloss(:,:) 
character  filein*20,  fileout*24,  answer*l 

10  continue 

write (*, ’ (a\) ') 1  Name  of  input  file?  ' 
read(*,  ' (a) '  )  filein 

open (14,  file=filein) 


***READ  SYSTEM  INFO* ****************** *********** 


read(  14,  *  )  lerr6 
read{  14,  *  )  lerrl2 


read(  14,  * 
read{  14,  * 
read(  14,  * 
read(  14,  * 
read(  14,  * 

read (  14 ,  * 


) 

) 

) 

) 

) 

) 


freq  ! Frequency  in  MHz. 

antht  ! antenna  height, 

ipat  1  antenna  type 

ipol  i antenna  polarization. 

bwidth  'This  value  is  ignored  for  Omni  antenna, 
l  the  value  must  be  entered  in  degrees . 
elev  ‘This  value  is  ignored  for  Omni  antenna. 


otherwise. 


otherwise. 
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! the  value  must  be  entered  in  degrees. 

read{  14,  *  )  nfacs  l If  using  specific  height- finder  antenna,  this  variable 
•contains  a  non-zero  value  corresponding  to  the  #  of 
1  cut-back  angles  and  cut-back  factors. 

!  if  using  specific  height-f inder  antenna,  then  must  specify  values  for  HFANGO 
!  and  HFFAC  arrays.  Height-finder  cut-back  angles  HFANGO  must  be  in  degrees. 


if (  nfacs  .gt.  0  )  then 

IF (  ALLOCATED {  hfang  )  )  DEALLOCATE {  hfang,  stat=ierror  ) 
ALLOCATE (  hfang ( nfacs ) ,  stat=ierror  ) 
if (  ierror  .ne.  0  )  then 

write (* , *) ’**********ERROR  IN  HFANG  ALLOCATION*********** ' 
Stop 
end  if 
hfang  =  0. 

IF (  ALLOCATED (  hffac  )  )  DEALLOCATE (  hffac,  stat=ierror  ) 
ALLOCATE (  hffac (nfacs) ,  stat=ierror  ) 
if(  ierror  .ne.  0  )  then 

write(*,*)  1  * ******** *ERROR  IN  HFFAC  ALLOCATION***********  * 
stop 
end  if 
hffac  =  0. 


read{  14,  *  )(  hfang(i),  i=l,  nfacs  ) 
read(  14,  *  )(  hffac(i),  i=l,  nfacs  ) 
end  if 


****READ  GENERIC  INPUT  INFO******************** 


read(  14,  *  }  hmin 
read(  14,  *  )  hmax 
read(  14,  *  )  rmax 
read{  14,  *  )  nzout 
read(  14,  *  )  nrout 
read (  14,  *  )  itropo 


!  Minimum  height  in  m 
•Maximum  output  height  in  m 
!  Maximum  output  range  in  m 
INumber  of  output  height  points. 

INumber  of  output  range  points. 

ITroposcatter  flag:  0=no  troposcatter ,  l=troposcatter 


•Allocate  and  initialize  MLOSSO  and  ITL0SS()  arrays. 


if (  allocated (  mloss  )  )  deallocate (  mloss,  stat=ierror  ) 
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allocate (  mloss {0 :nzout) ,  stat  =  ierror  ) 
if {  ierror  .ne.  0  )  then 

write <*,*) '******ERROR  IN  MLOSS  ALLOCATION*******' 
stop 
end  if 
mloss  =  0 . 

if(  allocated(  itloss  )  )  deallocate (  itloss,  stat=ierror  ) 
allocate (  itloss (nrout, 0 :nzout) ,  stat=ierror  ) 
if (  ierror  .ne.  0  )  then 

write ( * , * )  ****** * ERROR  IN  ITLOSS  ALLOCATION*******’ 

Stop 
end  if 
itloss  =  0. 


★★************READ  METEOROLOGICAL  INFO**************************** 


read {  14 , 
read(  14, 
read (  14, 

read(  14, 
read(  14, 
read (  14 , 


*  )  nprof  ! Number  of  refractivity  profiles 

*  )  lvlp  !Number  of  levels  in  refractivity  profiles. 

*  )  i extra  ‘Extrapolation  flag:  O=extrapolate  using  standard 

! gradient , l=extrapolate  using  gradient  from  first  2 
! levels . 

*  )  abshum  ! Surface  absolute  humidity  in  g/m**3 

*  )  tair  ! Surface  air  temperature  in  degrees 

*  )  gammaa  ! Gaseous  absorption  attenuation  rate  in  dB/km 


!  Allocate  and  initialize  height /refractivity  and  range  arrays. 

IF(  ALLOCATED (  HMSL  )  )  DEALLOCATE (  HMSL,  stat=ierror  ) 

ALLOCATE (  HMSL(0:LVLP,  NPROF),  stat=ierror  ) 
if (  ierror  .ne.  0  )  then 

write (*,*)' **********ERROR  IN  HMSL  ALLOCATION***********' 
stop 
end  if 
HMSL  =  0. 


IF (  ALLOCATED (  REFMSL  )  )  DEALLOCATE (  REFMSL,  stat=ierror  ) 
ALLOCATE (  REFMSL ( 0 : LVLP,  NPROF),  stat=ierror  ) 
if (  ierror  .ne.  0  )  then 

write {*,*)' **********ERROR  IN  REFMSL  ALLOCATION***********' 
stop 
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REFMSL  =  0. 


IF (  ALLOCATED (  RNGPROF  )  )  DEALLOCATE (  RNGPROF ,  stat=ierror  ) 

ALLOCATE (  RNGPROF (NPROF) #  stat=ierror  ) 
if (  ierror  .ne.  0  )  then 

write {*,*) ******** ***ERROR  IN  RNGPROF  ALLOCATION*********** ‘ 
stop 
end  if 

RNGPROF  =  0. 


do  i  =  1/  nprof 

read (  14,  *  )  mgprof  (i)  ! Range  of  profile  in  in 

do  j  =  0,  lvlp-1 

read(  14,  *  )  hmsl(j,i),  refmsl(j,i)  >Height/ref ractivity  levels 
end  do 
end  do 

,********************************REAd  terrain  info****************** 

read{  14,  *  )  itp  ‘Number  of  terrain  range/height  points 

read(  14,  *  )  igr  INumber  of  ground  composition  types 

if(  igr  .gt.  0  )  then 

IF {  ALLOCATED {  DIELEC  )  )  DEALLOCATE (  DIELEC,  stat=ierror  ) 
ALLOCATE (  DIELEC (2,  IGR),  stat=ierror  ) 
if(  ierror  .ne.  0  )  then 

write (*,*) ******** ***ERROR  IN  DIELEC  ALLOCATION***********' 

Stop 
end  if 
DIELEC  =  0. 

IF (  ALLOCATED (  IGRND  )  )  DEALLOCATE {  IGRND,  stat=ierror  ) 

ALLOCATE (  IGRND (IGR),  stat=ierror  ) 
if (  ierror  .ne.  0  )  then 

write(*, *) ' **********ERROR  IN  IGRND  ALLOCATION***********1 
stop 
end  if 


IGRND  =  0. 


IF  (  ALLOCATED  (  RGRND  )  )  DEALLOCATE  {  RGRND,  stat=ierror  ) 

ALLOCATE (  RGRND (IGR),  stat=ierror  ) 
if(  ierror  .ne.  0  )  then 

write ( * , * )  '**********ERROR  IN  RGRND  ALLOCATION* **********  1 
stop 
end  if 
RGRND  =  0. 

!  Read  ranges  at  which  ground  types  apply,  ground  composition  types,  and 
l dielectric  constants.  If  IGRND(i)  =  7,  then  must  specify  non-zero  values 
ifor  DIELECO,  otherwise  set  to  0. 

do  i  =  1,  igr 

read{  14,  *  )  rgrnd(i) ,  igrnd(i),  { dielec ( j , i) , j=l, 2) 
end  do 

end  if 

if (  itp  .gt.  1  )  then  !  Valid  terrain  profile  must  contain  at  least  two 
!  height/range  points. 

IF (  ALLOCATED (  TERX  )  )  DEALLOCATE {  TERX,  stat=ierror  ) 

ALLOCATE (  TERX(ITP),  stat=ierror  ) 
if(  ierror  .ne.  0  )  then 

write {*,*)  ******** ***ERROR  IN  TERX  ALLOCATION***********' 
stop 
end  if 
TERX  =  0. 

IF (  ALLOCATED (  TERY  )  )  DEALLOCATE (  TERY,  stat=ierror  ) 

ALLOCATE {  TERY (ITP),  stat=ierror  ) 
if (  ierror  .ne.  0  )  then 

write (*,*) ■ **********ERR0R  IN  TERY  ALLOCATION***********' 
stop 
end  if 
TERY  =  0. 

do  i  =  1,  itp 

read(  14,  *  )  terx(i),  tery(i) 
end  do 
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end  if 


close (14) 

l  Write  all  inputs  that  create  the  resulting  output  propagation  loss  values  as 
!  part  of  log  file. 

ip  =  index (  filein,  1 . '  ) 
if (  ip  .gt.  0  )  then 

fileout  =  filein (1: ip-1) //* .out1 
else 

ic  -  len_trim(  filein  ) 
fileout  =  filein (1 : ic) //' .out ' 
end  if 

open(  15 ,  file=fileout  ) 

write (  15,  *  )’****Input  Log***** 

write (  15,  *  ) ' lerr6  =  \  lerr6 

write (  15,  *  ) • lerrl2  =  *,  lerrl2 

write (  15,  *  )' Frequency  (MHz)  =  freq 

write (  15,  *  ) 'Antenna  height  (m)  =  ',  antht 

write (  15,  *  ) ‘Antenna  type  =  ’,  ipat 

write (  15,  *  ) ’Polarization  =  ipol 

write (  15,  *  ) 'Beamwidth  (deg)  =  bwidth 

write (  15,  *  ) 'Elevation  angle  (deg)  =  elev 

write (  15,  *  ) 'Number  of  cut-back  angles  and  factors  =  *,  nfacs 
if (  nfacs  .gt.  0  )  then 

write (  15,  *  ) ’Cut -back  angles  (deg)  =  \  {  hfang(i),  i=l,  nfacs  ) 

write (  15,  *  ) 'Cut-back  factors  =  ',  (  hffac(i),  i=l,  nfacs  ) 

end  if 

write (  15,  *  ) ’Minimum  output  height  (m)  =  ' ,  hmin 

write (  15,  *  ) 'Maximum  output  height  (m)  =  ',  hmax 

write  (  15 ,  *  )  '  Maximum  output  range  (m)  =  '  ,  rmax 

write (  15,  *  ) ’Number  of  output  height  points  =  nzout 

write (  15,  *  ) ’Number  of  output  range  points  =  ',  nrout 

write (  15,  *  ) ' Troposcatter  flag  =  ',  itropo 

write (  15,  *  ) 'Number  of  refractivity  profiles  =  ’,  nprof 

write (  15,  *  ) 'Number  of  levels  in  refractivity  profiles  =  lvlp 

do  j  =  1,  nprof 

write (  15,  ' (a, i2,a, flO.l) '  ) 'Range  of  profile  ',  j,  '  in  m  =  \rngprof(j) 
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write ( 15, *) 'Height  (m)  '  ,  '  M-unit  for  Profile*,  j 

do  i  =  0,  lvlp-1 

write(15,*)  hmsl(i,j),  refmsl (i, j ) 
end  do 
end  do 

write{  15,  *  ) 'Number  of  ground  composition  types  =  igr 

write (  15,  *  )' Range (m)  of  ground  type  Ground  types  Dielec (perm. , cond. ) ' 

do  i  =  1,  igr 

write(  15,  * (fl5 .2 , 20x, il, 7x, 2 ( f 15 .2) ) '  )  rgrnd(i) ,  igrnd(i) ,  {dielec (j , i) ,  j=l,2) 
end  do 

write (  15,  *  ) 'Number  of  terrain  range/height  points  =  itp 
if (  itp  .  gt.  1  )  then 

write (15, *) ’Range  (km)’,  'Height  (m) ' 
do  i  =  1,  itp 

write{  15,  *  )  terx (i) *1 . e-3 ,  tery(i) 
end  do 
end  if 

write {  15,  *  ) 

write (  15,  *  )  ******* **0utput  Loss  Values***'***'*' 

!  Variables  in  CAPS  are  re turned . 

call  apminit {  IXOSTP,  I ERROR  ) 

if (  ierror  ,ne.  0  )  then 

write(*,*)  ************  ERROR 
write(*,*) *********  IERROR  = 
stop 
end  if 

do  istp  =  1,  nrout 

call  apmstep {  istp,  ROUT,  MLOSS,  JSTART,  JEND  ) 

write {*,*)' range  in  km  =  rout*l.e-3  ‘Output  to  screen 

!  JSTART  =  start  of  valid  loss  points,  JEND  =  end  of  valid  loss 
!  points.  If  at  a  range  where  extended  optics  will  be  applied,  then 


IN  APMINIT  *************** 
',  ierror,*  *********** 
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!  JEND  will  be  the  index  at  top  of  PE  region  in  MLOSSO  . 


1  store  loss  points  in  2-dim.  grid  for  later  output  to  file. 

do  m  =  j start,  jend 
itloss{  istp,  m  )  =  mloss(m) 
end  do 
end  do 

call  xoinit  (  ixostp,  jend,  JXSTART,  I ERROR  )  !  Initialize  variables  to  be  used 

1  in  XO  model 
if(  ierror  .gt.  0  )  then 

write ( *,  *)  ' *******ERROR  IN  XOINIT* * *****' 
stop 
end  if 

i  if  extended  optics  model  needs  to  be  used,  then  call. 

if (  ixostp  .gt.  0  )  then 

do  istp  »  ixostp,  nr out 

call  xostept  istp,  ROUT,  MLOSS,  jxstart,  JXEND  ) 

write (*,*) 1  range  in  km  (XO  region)  =  ',  rout*l.e-3  'Output  to  screen 

do  m  =  jxstart,  jxend 

itloss(  istp,  m  )  =  mloss (m) 
end  do 
end  do 

end  if 

*  Now  store  all  loss  values  in  output  file  FILEOUT. 

1  Recall  that  MLOSS  is  the  propagation  loss  in  centibels,  i.e., 

!  MLOSSO  =  NINT (  propagation  loss  in  dB  *  10.  ). 

dzo  =  (hmax-hmin)  /  float  (  nzout  )  ! Determine  height  increment  of 

‘output  points. 

dro  =  rmax  /  float (  nrout  )  'Determine  range  increment  of  output 
[points . 
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do  j  =1,  nrout 
write (15 , * ) 

write (15, *) ' range  in  km  =  ’ ,  float (j ) *dro*l .e-3 
write (15, * ) 

write ( 15 , * ) ' Height  (m)  Loss  (dB)  • 
do  k  =  1,  nzout 

write (15,*)  hmin  +  float (k) *dzo,  itloss ( j , k) * . 1 
end  do 
end  do 
close{15) 

!  Call  APMCLEAN  to  deallocate  all  allocated  arrays  used  within  APM  routines. 

call  apmclean(  I ERROR  ) 
if  {  ierror  .gt.  0  )  then 

write (*, *) 1 *******ERROR  IN  APMCLEAN*******1 
stop 
end  if 

! Deallocate  all  allocated  arrays  in  main  driver  program  (except  IGKND ( ) , 

[ RGRND ( )  ,  and  DIELEC ()  -  this  is  done  in  APMCLEAN)  before  exiting. 

deallocate  (  hmsl,  refmsl,  rngprof,  itloss,  mloss  ) 
iff  itp  .gt.  1  )  deallocate (  terx,  tery  ) 
if (  nfacs  .gt.  0  )  deallocate (  hfang,  hffac  ) 

write (*, * (a\ ) ' ) 1  Input  another  file?  (y  or  n) ' 
read ( * ,  ' (a) '  )  answer 

if ( (  answer  .eq.  'y'  )  .or.  (  answer  .eq.  ' Y ' ) )  goto  10 

endl 
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8.  INPUT  FILE  LISTINGS  FOR  TEST  CASES 

Each  test  case,  when  using  the  sample  driver  program  APMMAIN.F90,  shall  consist  of  an  input 
file  (TestName.IN)  and  an  output  file  (TestName.OUT).  The  input  file’s  contents  are  listed  in  sec¬ 
tions  8.1  through  8.28.  The  output  file’s  contents,  consisting  of  couplets  of  height  in  meters  and 
propagation  loss  in  dB,  are  listed  in  tables  16  through  43. 

8.1  ABSORB.IN 


. true . 

:  LERR6  error 

flag 

. true. 

:  LERR12  error 

flag 

20000. 

:  Frequency  in 

MHz 

25. 

:  Antenna  height  in  m 

1  :  Antenna  type  ( l=OMNI , 2=GAUSS , 3=SINC (X) , 4=COSEC2 , 5=HTFIND, 6  =USRHTFIND ) 

0  :  Polarization  (0=HOR,  1=VER) 

5.  :  Beamwidth  in  deg  (this  value  is  ignored  for  OMNI  antenna) 

0.  :  Antenna  elevation  angle  in  deg  (this  value  is  ignored  for  OMNI  antenna) 

0  :  Number  of  cut-back  angles  &  factors  (for  specific  ht-finder  antenna) 

0 .  :  Minimum  output  height  in  m 

200.  :  Maximum  output  height  in  m 

50000.  :  Maximum  output  range  in  m 

20  :  Number  of  output  height  points 

1  :  Number  of  output  range  points 

0  :  Troposcatter  flag:  0=no  troposcatter ,  l=troposcatter 

1  :  Number  of  refractivity  profiles 

2  :  Number  of  levels  in  refractivity  profiles 

0  :  Extrapolation  flag 

0.  :  Surface  absolute  humidity  in  g/m3 

0.  :  Surface  air  temperature  in  degrees  Celsius 

.146  :  Gaseous  absorption  attenuation  rate  in  dB/km 

0.  :  Range  of  first  refractivity  profiles  in  m 

0.  350.  :  Height  &  M-unit  value  of  ref.  profile  1,  level  1 

1000.  468.  :  Height  &  M-unit  value  of  ref.  profile  1,  level  2 

0  :  Number  of  terrain  range/height  points 

1  :  Number  of  ground  composition  types 

0.,  0,  0.,  0.  :  Range ,  ground  type  (integer),  permittivity,  conductivity 
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8.2  BLOCK.IN 


. true. 

:  LERR6 

error 

flag 

. true . 

:  LERR12 

error 

flag 

1000. 

:  Frequency  in 

MHz 

25. 

:  Antenna 

height  in  m 

1  :  Antenna  type  (1=0MNI, 2=GAUSS, 3=SINC (X) , 4=COSEC2 , 5=HTFIND, 6=USRHTFIND) 

0  :  Polarization  (0=HOR,  1=VER) 

1.  :  Beamwidth  in  deg  (this  value  is  ignored  for  OMNI  antenna) 

0.  :  Antenna  elevation  angle  in  deg  (this  value  is  ignored  for  OMNI  antenna) 

0  :  Number  of  cut-back  angles  &  factors  (for  specific  ht-finder  antenna) 

0 .  :  Minimum  output  height  in  m 

1000.  :  Maximum  output  height  in  m 

50000.  :  Maximum  output  range  in  m 
20  :  Number  of  output  height  points 

1  :  Number  of  output  range  points 

0  :  Troposcatter  flag:  0=no  troposcatter ,  l=troposcatter 

1  :  Number  of  refractivity  profiles 

2  :  Number  of  levels  in  refractivity  profiles 

0  :  Extrapolation  flag 

0 .  :  Surface  absolute  humidity  in  g/m3 

0 .  :  Surface  air  temperature  in  degrees 

0 .  :  Gaseous  absorption  attenuation  rate  in  dB/km 

0.  :  Range  of  first  refractivity  profiles  in  m 

°*  350.  :  Height  &  M-unit  value  of  ref.  profile  1,  level  1 

1000.  468.  :  Height  &  M-unit  value  of  ref.  profile  1,  level  2 

6  :  Number  of  terrain  range /height  points 

1  :  Number  of  ground  composition  types 

0.,  0,  0.,  0.  :  Range,  ground  type  (integer),  permittivity,  conductivity 

0.  0.  :  Range  &  height  of  terrain  point  1 

22500.  0.  :  Range  &  height  of  terrain  point  2 

22500.  200.  :  Range  &  height  of  terrain  point  3 

27500.  200.  ;  Range  &  height  of  terrain  point  4 

27500.  0.  :  Range  &  height  of  terrain  point  5 

50000.  0.  :  Range  &  height  of  terrain  point  6 
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8.3  C0SEC2.1N 


. true . 
. true . 
1000. 
25. 

4 

0 


1. 

0. 

0 

0. 

2000. 

50000. 

20 

1 

0 

1 

2 

0 

0. 

0. 

0. 

0. 

0. 

1000. 

0 

1 


:  LERR6  error  flag 
:  LERR12  error  flag 
:  Frequency  in  MHz 
:  Antenna  height  in  m 

:  Antenna  type  { l=OMNI ,  2=GAUSS, 3=SINC  (X)  ,  4=COSEC2 , 5=HTFIND,  6=USRHTFIND) 

:  Polarization  (0=HOR,  1=VER) 

:  Beamwidth  in  deg  (this  value  is  ignored  for  OMNI  antenna) 

:  Antenna  elevation  angle  in  deg  (this  value  is  ignored  for  OMNI  antenna) 

:  Number  of  cut-back  angles  &  factors  (for  specific  height-finder  antenna) 
:  Minimum  output  height  in  m 
:  Maximum  output  height  in  m 
:  Maximum  output  range  in  m 
:  Number  of  output  height  points 
:  Number  of  output  range  points 

:  Troposcatter  flag:  0=no  troposcatter ,  l=troposcatter 
:  Number  of  refractivity  profiles 
:  Number  of  levels  in  refractivity  profiles 
:  Extrapolation  flag 
:  Surface  absolute  humidity  in  g/m3 
:  Surface  air  temperature  in  degrees 
:  Gaseous  absorption  attenuation  rate  in  dB/km 
:  Range  of  first  refractivity  profiles  in  m 
350.  :  Height  &  M-unit  value  of  ref.  profile  1,  level  1 

468.  :  Height  &  M-unit  value  of  ref.  profile  1,  level  2 

:  Number  of  terrain  range /height  points 
:  Number  of  ground  composition  types 
0.,  0.  :  Range,  ground  type  (integer),  permittivity,  conductivity 


8.4  EDUCT.IN 


. true . 

:  LERR6  error  flag 

. true . 

:  LERR12  error  flag 

10000. 

:  Frequency  in  MHz 

15. 

:  Antenna  height  in  m 
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:  Antenna  type  ( 1=0MNI , 2=GAUSS , 3=SINC (X) , 4-COSEC2  ,  5=HTFIND, 6=USRHTFIND) 

0  :  Polarization  (0=HOR,  1=VER) 

5.  :  Beamwidth  in  deg  (this  value  is  ignored  for  OMNI  antenna) 

0.  :  Antenna  elevation  angle  in  deg  (this  value  is  ignored  for  OMNI  antenna) 

0  :  Number  of  cut-back  angles  &  factors  (for  specific  height-f inder  antenna) 

0 .  :  Minimum  output  height  in  m 

200.  :  Maximum  output  height  in  m 

50000.  :  Maximum  output  range  in  m 

20  :  Number  of  output  height  points 

1  :  Number  of  output  range  points 

0  :  Troposcatter  flag:  0=no  troposcatter ,  l=troposcatter 

1  :  Number  of  refractivity  profiles 

21  :  Number  of  levels  in  refractivity  profiles 

0  :  Extrapolation  flag 

0.  :  Surface  absolute  humidity  in  g/m3 

0 .  :  Surface  air  temperature  in  degrees 

0 .  :  Gaseous  absorption  attenuation  rate  in  dB/km 

0.  :  Range  of  first  refractivity  profiles  in  m 

0.  339.  :  Height  &  M-unit  value  of  ref.  profile  1,  level  1 

.040  335.10  :  Height  &  M-unit  value  of  ref.  profile  1,  level  2 

.1  333.66  :  Height  &  M-unit  value  of  ref.  profile  1,  level  3 

.2  332.6  :  Height  &  M-unit  value  of  ref.  profile  1,  level  4 

.398  331.54  :  Height  &  M-unit  value  of  ref.  profile  1,  level  5 

.794  330.51  :  Height  &  M-unit  value  of  ref.  profile  1,  level  6 

1.585  329.53  :  Height  &  M-unit  value  of  ref.  profile  1,  level  7 

3.162  328.65  :  Height  &  M-unit  value  of  ref.  profile  1,  level  8 

6.310  327.96  :  Height  &  M-unit  value  of  ref.  profile  1,  level  9 

12.589  327.68  :  Height  Sc  M-unit  value  of  ref.  profile  1,  level  10 

14.  327.67  :  Height  &  M-unit  value  of  ref.  profile  1,  level  11 

25.119  328.13  :  Height  &  M-unit  value  of  ref.  profile  1,  level  12 

39.811  329.25  :  Height  Sc  M-unit  value  of  ref.  profile  1,  level  13 

50.119  330.18  :  Height  Sc  M-unit  value  of  ref.  profile  1,  level  14 

63.096  331.44  :  Height  &  M-unit  value  of  ref.  profile  1,  level  15 

79.433  333.12  :  Height  Sc  M-unit  value  of  ref.  profile  1,  level  16 

100.  335.33  :  Height  Sc  M-unit  value  of  ref.  profile  1,  level  17 

125.893  338.2  :  Height  &  M-unit  value  of  ref.  profile  1,  level  18 

158.489  341.92  :  Height  Sc  M-unit  value  of  ref.  profile  1,  level  19 


199.526  346.69  :  Height  &  M-unit  value  of  ref.  profile  1,  level  20 

209.526  347.87  :  Height  &  M-unit  value  of  ref.  profile  1,  level  21 

0  :  Number  of  terrain  range /height  points 

1  :  Number  of  ground  composition  types 

0.,  0,  0.,  0.  :  Range,  ground  type  (integer),  permittivity,  conductivity 

8.5  GASABS.IN 


. true . 

:  LERR6  error  flag 

. true . 

:  LERR12  error  flag 

20000. 

:  Frequency  in  MHz 

25. 

:  Antenna  height  in  m 

1  :  Antenna  type  ( l=OMNI , 2=GAUSS, 3=SINC (X) , 4=COSEC2 , 5=HTFIND, 6=USRHTFIND) 

0  :  Polarization  (0=HOR,  1=VER) 

5.  :  Beamwidth  in  deg  (this  value  is  ignored  for  OMNI  antenna) 

0.  :  Antenna  elevation  angle  in  deg  (this  value  is  ignored  for  OMNI  antenna) 

0  :  Number  of  cut-back  angles  &  factors  (for  specific  height-finder  antenna) 

0 .  :  Minimum  output  height  in  m 

200.  :  Maximum  output  height  in  m 

50000.  :  Maximum  output  range  in  m 

20  :  Number  of  output  height  points 

1  :  Number  of  output  range  points 

0  :  Troposcatter  flag:  0=no  troposcatter ,  l=troposcatter 

1  :  Number  of  refractivity  profiles 

2  :  Number  of  levels  in  refractivity  profiles 

0  :  Extrapolation  flag 

10.  :  Surface  absolute  humidity  in  g/m3 

25.  :  Surface  air  temperature  in  degrees  Celsius 

0.  :  Gaseous  absorption  attenuation  rate  in  dB/km 

0.  :  Range  of  first  refractivity  profiles  in  m 

0.  3  50.  :  Height  Sc  M-unit  value  of  ref.  profile  1,  level  1 

1000.  468.  :  Height  &  M-unit  value  of  ref.  profile  1,  level  2 

0  :  Number  of  terrain  range/height  points 

1  :  Number  of  ground  composition  types 

0.,  0,  0.,  0.  :  Range,  ground  type  (integer),  permittivity,  conductivity 
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8.6  GAUSS.IN 


. true . 

:  LERR6  error  flag 

. true . 

:  LERR12  error  flag 

1000. 

:  Frequency  in  MHz 

25. 

:  Antenna  height  in  m 

2  :  Antenna  type  (1=0MNI , 2=GAUSS, 3=SINC (X) , 4=COSEC2 , 5=HTFIND, 6=USRHTFIND) 

0  :  Polarization  (0=HOR,  1=VER) 

1.  :  Beamwidth  in  deg  (this  value  is  ignored  for  OMNI  antenna) 

0.  :  Antenna  elevation  angle  in  deg  (this  value  is  ignored  for  OMNI  antenna) 

0  :  Number  of  cut-back  angles  &  factors  (for  specific  height-finder  antenna) 

0.  :  Minimum  output  height  in  m 

2000.  :  Maximum  output  height  in  m 

50000.  :  Maximum  output  range  in  m 

20  :  Number  of  output  height  points 

1  :  Number  of  output  range  points 

0  :  Troposcatter  flag:  0=no  troposcatter ,  l=troposcatter 

1  :  Number  of  refractivity  profiles 

2  :  Number  of  levels  in  refractivity  profiles 

0  :  Extrapolation  flag 

0 .  :  Surface  absolute  humidity  in  g/m3 

0.  :  Surface  air  temperature  in  degrees 

0.  :  Gaseous  absorption  attenuation  rate  in  dB/km 

0 .  :  Range  of  first  refractivity  profiles  in  m 

0.  350.  :  Height  &  M-unit  value  of  ref.  profile  1,  level  1 

1000.  468.  :  Height  &  M-unit  value  of  ref.  profile  1,  level  2 

0  :  Number  of  terrain  range/height  points 

1  :  Number  of  ground  composition  types 

0.,  0,  0.,  0.  :  Range,  ground  type  (integer),  permittivity,  conductivity 

8.7  HIBW.IN 


. true . 

:  LERR6  error  flag 

. true . 

:  LERR12  error  flag 

1000. 

:  Frequency  in  MHz 

25. 

:  Antenna  height  in  m 
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2 

0 

45. 

0. 

0 

0. 

2000. 

50000. 

20 

1 

0 

1 

2 

0 

0. 

0. 

0. 

0. 

0. 

1000. 

0 

1 


:  Antenna  type  ( l=OMNI ,  2=GAUSS,  3=SINC  (X)  ,  4-COSEC2 , 5—  HTFIND,  6  — USRHTFIND) 

:  Polarization  (0=HOR,  1=VER) 

:  Beamwidth  in  deg  (this  value  is  ignored  for  OMNI  antenna) 

:  Antenna  elevation  angle  in  deg  (this  value  is  ignored  for  OMNI  antenna) 

:  Number  of  cut-back  angles  &  factors  (for  specific  height-finder  antenna) 
:  Minimum  output  height  in  m 
:  Maximum  output  height  in  m 
:  Maximum  output  range  in  m 
:  Number  of  output  height  points 
:  Number  of  output  range  points 

:  Troposcatter  flag:  0=no  troposcatter ,  l=troposcatter 
:  Number  of  refractivity  profiles 
:  Number  of  levels  in  refractivity  profiles 
:  Extrapolation  flag 
:  Surface  absolute  humidity  in  g/m3 
:  Surface  air  temperature  in  degrees 
:  Gaseous  absorption  attenuation  rate  in  dB/km 
:  Range  of  first  refractivity  profiles  in  m 
350.  :  Height  &  M-unit  value  of  ref.  profile  1,  level  1 

468.  :  Height  &  M-unit  value  of  ref.  profile  1,  level  2 

:  Number  of  terrain  range/height  points 
:  Number  of  ground  composition  types 
0.,  0.  :  Range,  ground  type  (integer),  permittivity,  conductivity 


8.8  HIEL.IN 

. true. 

:  LERR6  error  flag 

. true. 

:  LERR12  error  flag 

1000. 

:  Frequency  in  MHz 

25. 

:  Antenna  height  in  m 

2  :  Antenna  type  ( l=OMNI ,  2=GAUSS,  3=SINC  (X)  ,  4=COSEC2 , 5=HTFIND,  6=USRHTFIND) 

0  :  Polarization  (0=HOR,  1=VER) 

1.  :  Beamwidth  in  deg  (this  value  is  ignored  for  OMNI  antenna) 

10.  :  Antenna  elevation  angle  in  deg  (this  value  is  ignored  for  OMNI  antenna) 

0  :  Number  of  cut-back  angles  &  factors  (for  specific  height-finder  antenna) 

0 .  :  Minimum  output  height  in  m 

20000.  :  Maximum  output  height  in  m 
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50000.  :  Maximum  output  range  in  m 

20  :  Number  of  output  height  points 

1  :  Number  of  output  range  points 

0  :  Troposcatter  flag:  0=no  troposcatter ,  l=troposcatter 

1  :  Number  of  refractivity  profiles 

2  :  Number  of  levels  in  refractivity  profiles 

0  :  Extrapolation  flag 

0.  :  Surface  absolute  humidity  in  g/m3 

0.  :  Surface  air  temperature  in  degrees 

0.  :  Gaseous  absorption  attenuation  rate  in  dB/km 

0.  :  Range  of  first  refractivity  profiles  in  m 

0.  350.  :  Height  &  M-unit  value  of  ref.  profile  1,  level  1 

1000.  468.  :  Height  &  M-unit  value  of  ref.  profile  1,  level  2 

0  :  Number  of  terrain  range/height  points 

1  :  Number  of  ground  composition  types 

0.,  0,  0 . ,  0.  :  Range,  ground  type  (integer),  permittivity,  conductivity 

8-9  HIFREQ.IN 


. true . 

:  LERR6 

error 

flag 

. true . 

:  LERR12 

error 

flag 

20000. 

:  Frequency  in 

MHz 

25. 

:  Antenna 

height  in  m 

1  :  Antenna  type  ( l=OMNI , 2=GAUSS , 3=SINC (X) , 4=COSEC2 , 5=HTFIND, 6=USRHTFIND) 

0  :  Polarization  (0=HOR,  1=VER) 

0.  :  Beamwidth  in  deg  (this  value  is  ignored  for  OMNI  antenna) 

0.  :  Antenna  elevation  angle  in  deg  (this  value  is  ignored  for  OMNI  antenna) 

0  :  Number  of  cut-back  angles  &  factors  (for  specific  height-finder  antenna) 

0.  :  Minimum  output  height  in  m 

200.  :  Maximum  output  height  in  m 

50000.  :  Maximum  output  range  in  m 

20  :  Number  of  output  height  points 

1  :  Number  of  output  range  points 

0  :  Troposcatter  flag:  0=no  troposcatter,  l=troposcatter 

1  :  Number  of  refractivity  profiles 

2  :  Number  of  levels  in  refractivity  profiles 

0  :  Extrapolation  flag 
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0. 


Surface  absolute  humidity  in  g/m3 
0 .  :  Surface  air  temperature  in  degrees 

0.  :  Gaseous  absorption  attenuation  rate  in  dB/km 

0.  :  Range  of  first  refractivity  profiles  in  m 

0.  350.  :  Height  &  M-unit  value  of  ref.  profile  1,  level  1 

1000.  468.  :  Height  &  M-unit  value  of  ref.  profile  1,  level  2 

0  :  Number  of  terrain  range /height  points 

1  :  Number  of  ground  composition  types 

0.,  0,  0.,  0.  :  Range,  ground  type  (integer),  permittivity,  conductivity 

8.10  HITRAN.IN 

.true.  :  LERR6  error  flag 
.true.  :  LERR12  error  flag 
1000.  :  Frequency  in  MHz 

100.  :  Antenna  height  in  m 

1  :  Antenna  type  (l=OMNI, 2=GAUSS, 3=SINC (X) , 4=COSEC2 , 5=HTFIND, 6=USRHTFIND) 

0  :  Polarization  (0=HOR,  1=VER) 

0.  :  Beamwidth  in  deg  (this  value  is  ignored  for  OMNI  antenna) 

0.  :  Antenna  elevation  angle  in  deg  (this  value  is  ignored  for  OMNI  antenna) 

0  :  Number  of  cut-back  angles  &  factors  (for  specific  height-finder  antenna) 

0 .  :  Minimum  output  height  in  m 

1000.  :  Maximum  output  height  in  m 

50000.  :  Maximum  output  range  in  m 

20  :  Number  of  output  height  points 

1  :  Number  of  output  range  points 

0  :  Troposcatter  flag:  0=no  troposcatter ,  l=troposcatter 

1  :  Number  of  refractivity  profiles 

2  :  Number  of  levels  in  refractivity  profiles 

*  0  :  Extrapolation  flag 

0.  :  Surface  absolute  humidity  in  g/m3 

0.  :  Surface  air  temperature  in  degrees 

0 .  :  Gaseous  absorption  attenuation  rate  in  dB/km 

0.  :  Range  of  first  refractivity  profiles  in  m 

0.  350.  :  Height  &  M-unit  value  of  ref.  profile  1,  level  1 

1000.  468.  :  Height  &  M-unit  value  of  ref.  profile  1,  level  2 

0  :  Number  of  terrain  range /height  points 
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1  :  Number  of  ground  composition  types 

0.,  0,  0.,  0.  :  Range ,  ground  type  (integer),  permittivity,  conductivity 

8.11  HORZ.IN 


. true . 

:  LERR6 

error 

flag 

. true . 

:  LERR12 

error 

flag 

1000. 

:  Frequency  in 

MHz 

25. 

:  Antenna 

height  in  m 

1  :  Antenna  type  (l=OMNI ,  2=GAUSS,  3=SINC  (X)  ,  4=COSEC2 , 5=HTFIND,  6=USRHTFIND) 

0  :  Polarization  (0=HOR,  1=VER) 

1.  :  Beamwidth  in  deg  (this  value  is  ignored  for  OMNI  antenna) 

0.  :  Antenna  elevation  angle  in  deg  (this  value  is  ignored  for  OMNI  antenna) 

0  :  Number  of  cut-back  angles  &  factors  (for  specific  height-f inder  antenna) 

0 .  :  Minimum  output  height  in  m 

2000.  :  Maximum  output  height  in  m 

50000.  :  Maximum  output  range  in  m 

20  :  Number  of  output  height  points 

1  :  Number  of  output  range  points 

0  :  Troposcatter  flag:  0=no  troposcatter ,  l=troposcatter 

1  :  Number  of  refractivity  profiles 

2  :  Number  of  levels  in  refractivity  profiles 

0  :  Extrapolation  flag 

0 .  :  Surf ace  absolute  humidity  in  g/m3 

0 .  :  Surface  air  temperature  in  degrees 

0.  :  Gaseous  absorption  attenuation  rate  in  dB/km 

0.  :  Range  of  first  refractivity  profiles  in  m 

0.  350.  :  Height  &  M-unit  value  of  ref.  profile  1,  level  1 

1000.  468.  :  Height  &  M-unit  value  of  ref.  profile  1,  level  2 

0  :  Number  of  terrain  range/height  points 

1  :  Number  of  ground  composition  types 

0.,  0,  0.,  0.  :  Range,  ground  type  (integer),  permittivity,  conductivity 


48 


8.12  HTFIND.IN 


. true . 


. true . 
1000. 
25. 

5 

0 

2. 

0. 

0 

0. 

2000. 

50000. 

20 

1 

0 

1 

2 

0 

0. 

0. 

0. 

0. 

0. 

1000. 

0 

1 


:  LERR6  error  flag 
:  LERR12  error  flag 
:  Frequency  in  MHz 
:  Antenna  height  in  m 

:  Antenna  type  (l=OMNI, 2=GAUSS, 3=SINC (X) ,4=COSEC2, 5=HTFIND, 6=USRHTFIND) 

:  Polarization  (0=HOR,  1=VER) 

:  Beamwidth  in  deg  (this  value  is  ignored  for  OMNI  antenna) 

:  Antenna  elevation  angle  in  deg  (this  value  is  ignored  for  OMNI  antenna) 

:  Number  of  cut-back  angles  &  factors  (for  specific  height-finder  antenna) 
:  Minimum  output  height  in  m 
:  Maximum  output  height  in  m 
:  Maximum  output  range  in  m 
:  Number  of  output  height  points 
:  Number  of  output  range  points 

:  Troposcatter  flag:  0=no  troposcatter,  l=troposcatter 
:  Number  of  refractivity  profiles 
;  Number  of  levels  in  refractivity  profiles 
:  Extrapolation  flag 
:  Surface  absolute  humidity  in  g/m3 
:  Surface  air  temperature  in  degrees 
:  Gaseous  absorption  attenuation  rate  in  dB/km 
:  Range  of  first  refractivity  profiles  in  m 
350.  :  Height  &  M-unit  value  of  ref.  profile  1,  level  1 

468.  :  Height  &  M-unit  value  of  ref.  profile  1,  level  2 

:  Number  of  terrain  range /height  points 
:  Number  of  ground  composition  types 
0.,  0.  :  Range,  ground  type  (integer),  permittivity,  conductivity 


8.13  LOBW.IN 


. true . 

:  LERR6  error  flag 

. true . 

:  LERR12  error  flag 

1000. 

:  Frequency  in  MHz 

25. 

:  Antenna  height  in  m 
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2 


:  Antenna  type  (1=0MNI,  2=GAUSS,  3=SINC  (X)  ,  4=COSEC2 , 5=HTFIND,  6=USRHTFIND) 

0  :  Polarization  (0=HOR,  1=VER) 

.5  :  Beamwidth  in  deg  (this  value  is  ignored  for  OMNI  antenna) 

0.  :  Antenna  elevation  angle  in  deg  (this  value  is  ignored  for  OMNI  antenna) 

0  :  Number  of  cut-back  angles  &  factors  (for  specific  height- finder  antenna) 

0.  :  Minimum  output  height  in  m 

2000.  :  Maximum  output  height  in  m 

50000.  :  Maximum  output  range  in  m 

20  :  Number  of  output  height  points 

1  :  Number  of  output  range  points 

0  :  Troposcatter  flag:  0=no  troposcatter ,  l=troposcatter 

1  :  Number  of  refractivity  profiles 

2  :  Number  of  levels  in  refractivity  profiles 

0  :  Extrapolation  flag 

0.  :  Surface  absolute  humidity  in  g/m3 

0 .  :  Surface  air  temperature  in  degrees 

0.  :  Gaseous  absorption  attenuation  rate  in  dB/km 

0 .  :  Range  of  first  refractivity  profiles  in  m 

0.  350.  :  Height  &  M-unit  value  of  ref.  profile  1,  level  1 

1000.  468.  :  Height  &  M-unit  value  of  ref.  profile  l/  level  2 

0  :  Number  of  terrain  range /height  points 

1  :  Number  of  ground  composition  types 

0.,  0 ,  0.,  0.  :  Range,  ground  type  (integer),  permittivity,  conductivity 

8.14  LOEL.IN 


. true . 

:  LERR6  error  flag 

. true . 

:  LERR12  error  flag 

1000. 

:  Frequency  in  MHz 

25. 

:  Antenna  height  in  m 

2  :  Antenna  type  ( l=OMNI ,  2=GAUSS,  3=SINC  (X)  ,  4=COSEC2 , 5=HTFIND,  6=USRHTFIND) 

0  :  Polarization  (0=HOR,  1=VER) 

1.  :  Beamwidth  in  deg  (this  value  is  ignored  for  OMNI  antenna) 

-10.  :  Antenna  elevation  angle  in  deg  (this  value  is  ignored  for  OMNI  antenna) 

0  :  Number  of  cut-back  angles  &  factors  (for  specific  height-finder  antenna) 

0 .  :  Minimum  output  height  in  m 

20000.  :  Maximum  output  height  in  m 
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50000.  :  Maximum  output  range  in  m 

20  :  Number  of  output  height  points 

1  :  Number  of  output  range  points 

0  :  Troposcatter  flag:  0=no  troposcatter,  l=troposcatter 

1  :  Number  of  refractivity  profiles 

2  :  Number  of  levels  in  refractivity  profiles 

0  :  Extrapolation  flag 

0.  :  Surface  absolute  humidity  in  g/m3 

0.  :  Surface  air  temperature  in  degrees 

0.  :  Gaseous  absorption  attenuation  rate  in  dB/km 

0.  :  Range  of  first  refractivity  profiles  in  m 

0.  350.  :  Height  &  M-unit  value  of  ref.  profile  1 ,  level  1 

1000.  468.  :  Height  &  M-unit  value  of  ref.  profile  1,  level  2 

0  :  Number  of  terrain  range /height  points 

1  :  Number  of  ground  composition  types 

0.,  0,  0.,  0.  :  Range,  ground  type  (integer),  permittivity,  conductivity 


8.15  LOFREQ.IN 


.true.  :  LERR6  error  flag 

.true.  :  LERR12  error  flag 

100.  :  Frequency  in  MHz 

25.  :  Antenna  height  in  m 

1  :  Antenna  type  ( l=OMNI, 2=GAUSS, 3=SINC (X) , 4=COSEC2 , 5=HTFIND, 6=USRHTFIND) 

0  :  Polarization  (0=HOR,  1=VER) 

0.  :  Beamwidth  in  deg  (this  value  is  ignored  for  OMNI  antenna) 

0.  :  Antenna  elevation  angle  in  deg  (this  value  is  ignored  for  OMNI  antenna) 

0  :  Number  of  cut-back  angles  &  factors  (for  specific  height-finder  antenna) 

0 .  :  Minimum  output  height  in  m 

5000.  :  Maximum  output  height  in  m 


50000.  :  Maximum  output  range  in  m 

20  :  Number  of  output  height  points 

1  :  Number  of  output  range  points 

0  :  Troposcatter  flag:  0=no  troposcatter,  l=troposcatter 

1  :  Number  of  refractivity  profiles 

2  :  Number  of  levels  in  refractivity  profiles 
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0 


:  Extrapolation  flag 
0.  :  Surface  absolute  humidity  in  g/m3 

0 .  :  Surface  air  temperature  in  degrees 

0.  :  Gaseous  absorption  attenuation  rate  in  dB/km 

0.  :  Range  of  first  refractivity  profiles  in  m 

0.  350.  :  Height  &  M-unit  value  of  ref.  profile  1,  level  1 

1000.  468.  :  Height  &  M-unit  value  of  ref.  profile  1,  level  2 

0  :  Number  of  terrain  range/height  points 

1  :  Number  of  ground  composition  types 

0 . ,  0 ,  0.,  0.  :  Range,  ground  type  (integer),  permittivity,  conductivity 


8.16  LOTRAN.IN 


. true . 


. true . 
1000. 
1. 

1 

0 

0. 

0. 

0 

0. 

10000. 

50000. 

20 

1 

0 

1 

2 

0- 

0. 

0. 

0. 

0. 

0. 


:  LERR6  error  flag 
:  LERR12  error  flag 
:  Frequency  in  MHz 
:  Antenna  height  in  m 

:  Antenna  type  ( l=OMNI , 2=GAUSS, 3=SINC (X) , 4=COSEC2 , 5=HTFIND, 6=USRHTFIND) 

:  Polarization  (0=HOR,  1=VER) 

:  Beamwidth  in  deg  (this  value  is  ignored  for  OMNI  antenna) 

:  Antenna  elevation  angle  in  deg  (this  value  is  ignored  for  OMNI  antenna) 

:  Number  of  cut-back  angles  &  factors  (for  specific  height-f inder  antenna) 
:  Minimum  output  height  in  m 
:  Maximum  output  height  in  m 
:  Maximum  output  range  in  m 
:  Number  of  output  height  points 
:  Number  of  output  range  points 

:  Troposcatter  flag:  0=no  troposcatter ,  l=troposcatter 

:  Number  of  refractivity  profiles 

:  Number  of  levels  in  refractivity  profiles 

:  Extrapolation  flag 

:  Surface  absolute  humidity  in  g/ra.3 

:  Surface  air  temperature  in  degrees 

:  Gaseous  absorption  attenuation  rate  in  dB/km 

:  Range  of  first  refractivity  profiles  in  m 

350.  :  Height  &  M-unit  value  of  ref.  profile  1,  level  1 
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1000.  468.  :  Height  &  M-unit  value  of  ref.  profile  1,  level  2 

0  :  Number  of  terrain  range/height  points 

1  :  Number  of  ground  composition  types 

0.,  0,  0.,  0.  :  Range,  ground  type  (integer),  permittivity,  conductivity 

8.17  RDLONGB.IN 

.true.  :  LERR6  error  flag 
.true.  :  LERR12  error  flag 
150.  :  Frequency  in  MHz 

100.  :  Antenna  height  in  m 

1  :  Antenna  type  ( l=OMNI ,  2=GAUSS,  3=SINC  (X)  ,  4=COSEC2 , 5=HTFIND,  6=USRHTFIND) 

0  :  Polarization  (0=HOR,  1=VER) 

1.  :  Beamwidth  in  deg  (this  value  is  ignored  for  OMNI  antenna) 

0.  :  Antenna  elevation  angle  in  deg  (this  value  is  ignored  for  OMNI  antenna) 

0  :  Number  of  cut-back  angles  &  factors  (for  specific  height-f inder  antenna) 

0 .  :  Minimum  output  height  in  m 

1000.  :  Maximum  output  height  in  m 

100000.  :  Maximum  output  range  in  m 

20  :  Number  of  output  height  points 

1  :  Number  of  output  range  points 

0  :  Troposcatter  flag:  0=no  troposcatter ,  l=troposcatter 

2  :  Number  of  refractivity  profiles 

4  :  Number  of  levels  in  refractivity  profiles 

0  :  Extrapolation  flag 

0.  :  Surface  absolute  humidity  in  g/m3 

0.  :  Surface  air  temperature  in  degrees 

0.  :  Gaseous  absorption  attenuation  rate  in  dB/km 

0.  :  Range  of  first  refractivity  profiles  in  m 

0.  350.  :  Height  &  M-unit  value  of  ref.  profile  1,  level  1 

0.  350.  :  Height  &  M-unit  value  of  ref.  profile  1,  level  2 

0.  350.  :  Height  &  M-unit  value  of  ref.  profile  1,  level  3 

1000.  468.  :  Height  &  M-unit  value  of  ref.  profile  1,  level  4 

100000.  :  Range  of  second  refractivity  profiles  in  m 

0.  339.  :  Height  &  M-unit  value  of  ref.  profile  2,  level  1 

250.  368.5  :  Height  &  M-unit  value  of  ref.  profile  2,  level  2 
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300.  319.  :  Height  &  M-unit  value  of  ref.  profile  2,  level  3 
1000.  401.6  :  Height  &  M-unit  value  of  ref.  profile  2,  level  4 
167  :  Number  of  terrain  range/height  points 

6  :  Number  of  ground  composition  types 


o.,  2 , 

0., 

0. 

: 

Range,  ground  type  (integer), 

permittivity,  conductivity 

28500. 

0, 

0., 

0. 

:  Range , 

ground 

type 

(integer) 

,  permittivity. 

conductivity 

64800 . 

3, 

0. , 

0. 

:  Range , 

ground 

type 

( integer) 

,  permittivity. 

conductivity 

68700.  , 

0, 

0., 

0. 

:  Range , 

ground 

type 

(integer) 

,  permittivity. 

conductivity 

74100.  , 

4, 

0., 

0. 

:  Range , 

ground 

type 

(integer) 

,  permittivity. 

conductivity 

100200, 

o. 

0. 

,  0. 

:  Range , 

ground 

type 

( integer) 

,  permittivity. 

conductivity 

0000.  8  :  Range  &  height  of  terrain  point  1  in  meters 

0300.  8 

0600.  9 

0900.  9 

1200.  10 

1500.  11 

1800.  12 

2100.  13 

2400.  14 

2700.  15  :  Range  &  height  of  terrain  point  10  in  meters 

3000.  17 

3300.  19 

3600.  21 

3900.  23 

4200.  25 

4500.  27 

4800.  28 

5100.  30 

5400.  31 

5700.  31  :  Range  &  height  of  terrain  point  20  in  meters 

6000.  29 

6300.  23 

6600.  14 

6900.  9 

7200.  7 

7500.  7 

7800.  9 
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8100. 


11 


8400. 

14 

8700. 

13 

9300. 

13 

9600. 

12 

9900. 

11 

10200. 

8 

10800. 

8 

11100. 

7 

12600. 

7 

12900. 

6 

14400. 

6 

14700. 

7 

15000. 

8 

15300. 

8 

15600. 

9 

15900. 

10 

16200. 

11 

16500. 

11 

16800. 

12 

17400. 

12 

17700. 

13 

18000. 

13 

18300. 

14 

18600. 

15 

18900. 

16 

19200. 

18 

19500. 

20 

19800. 

21 

20100. 

22 

20400. 

23 

20700. 

24 

21000. 

24 

21300. 

25 

21600. 

26 

21900. 

27 

22200. 

27 

:  Range  &  height  of  terrain  point  30  in  meters 


:  Range  &  height  of  terrain  point  40  in  meters 


:  Range  &  height  of  terrain  point  50  in  meters 


:  Range  &  height  of  terrain  point  60  in  meters 
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22500. 


28 


22800. 

29 

23400. 

29 

23700. 

30 

24600. 

30 

24900. 

32 

25200. 

34 

25500. 

38 

26100. 

38 

26400. 

36 

26700. 

34 

27000. 

32 

27300. 

27 

27600. 

15 

27900. 

6 

28200. 

1 

28500. 

0 

64500. 

0 

64800. 

8 

65100. 

30 

65400. 

39 

65700. 

61 

66600. 

61 

66900. 

24 

67200. 

14 

67500. 

26 

67800. 

16 

68100. 

1 

68400. 

1 

68700. 

0 

73800. 

0 

74100. 

1 

74400. 

1 

74700. 

10 

75000. 

8 

75300. 

39 

75600. 

45 

:  Range  &  height  of  terrain  point  70  in  meters 


:  Range  &  height  of  terrain  point  80  in  meters 


:  Range  &  height  of  terrain  point  90  in  meters 


:  Range  &  height  of  terrain  point  100  in  meters 
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75900. 
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76200.  61 

76500.  61 

76800.  82 

77100.  61 

77400.  78 

77700.  61 

78000.  129 

78300.  30  :  Range  &  height  of  terrain  point  110  in  meters 

78600.  46 

78900.  159 

79200.  184 

79500.  226 

79800.  152 

80100.  201 
80400.  244 

80700.  152 

81000.  143 

81300.  91  :  Range  &  height  of  terrain  point  120  in  meters 

81600.  107 

81900.  152 

82200.  152 

82500.  170 

82800.  152 

83100.  66 

83400.  70 

83700.  121 

84000.  152 

84300.  170  :  Range  &  height  of  terrain  point  130  in  meters 

84600.  141 

84900.  139 

85200.  147 

85500.  177 

85800.  152 

86100.  61 
86700.  61 

87000.  70 
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87300. 


44 


87600.  11  :  Range  &  height  of  terrain  point  140  in  meters 

87900.  1 

89400.  1 

89700.  61 

90000.  84 

90300.  152 

90600.  152 

90900.  101 

91200.  40 

91500.  15 

91800.  20  :  Range  &  height  of  terrain  point  150  in  meters 

92100.  2 

92400.  10 

92700.  4 

93000.  1 

93300.  1 

93600.  0 

93900.  1 

96300.  1 

96600.  0 

96900.  1  :  Range  &  height  of  terrain  point  160  in  meters 

97500.  1 

97800.  2 

98100.  3 

99300.  3 

99600.  2 

99900.  2 

100200.  1  :  Range  &  height  of  terrain  point  167  in  meters 

8.18  RNGDEP.IN 


. true . 

:  LERR6 

error 

flag 

. true . 

:  LERR12 

error 

flag 

3000. 

:  Frequency  in 

MHz 

25. 

:  Antenna 

height  in  m 
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1  :  Antenna  type  <1=0MNI,  2=GAUSS,  3=SINC  (X)  #  4=COSEC2, 5=HTFIND,  6=USRHTFIND) 

0  :  Polarization  (0=HOR,  1=VER) 

5.  :  Beamwidth  in  deg  (this  value  is  ignored  for  OMNI  antenna) 

0.  :  Antenna  elevation  angle  in  deg  (this  value  is  ignored  for  OMNI  antenna) 

0  :  Number  of  cut-back  angles  &  factors  (for  specific  height-finder  antenna) 

0.  :  Minimum  output  height  in  m 

2000.  :  Maximum  output  height  in  m 

250000.  :  Maximum  output  range  in  m 

20  :  Number  of  output  height  points 

1  :  Number  of  output  range  points 

0  :  Troposcatter  flag:  0=no  troposcatter ,  l=troposcatter 

2  :  Number  of  refractivity  profiles 

4  :  Number  of  levels  in  refractivity  profiles 

0  :  Extrapolation  flag 

0.  :  Surface  absolute  humidity  in  g/m3 

0.  :  Surface  air  temperature  in  degrees  Celsius 

0.  :  Gaseous  absorption  attenuation  rate  in  dB/km 

0.  :  Range  of  first  refractivity  profiles  in  m 

0.  330.  :  Height  &  M-unit  value  of  ref.  profile  1,  level  1 

100.  342.5  :  Height  &  M-unit  value  of  ref.  profile  1,  level  2 

230.  312.5  :  Height  &  M-unit  value  of  ref.  profile  1 ,  level  3 

2000.  517.8  :  Height  &  M-unit  value  of  ref.  profile  1,  level  4 

250000.  :  Range  of  second  refractivity  profiles  in  m 

0.  330.  :  Height  &  M-unit  value  of  ref.  profile  2,  level  1 

600.  405.  :  Height  &  M-unit  value  of  ref.  profile  2,  level  2 

730.  375.  :  Height  &  M-unit  value  of  ref.  profile  2,  level  3 

2000.  522.3  :  Height  &  M-unit  value  of  ref.  profile  2,  level  4 

0  :  Number  of  terrain  range/height  points 

1  :  Number  of  ground  composition  types 

0.,  0,  0.,  0.  :  Range,  ground  type  (integer),  permittivity,  conductivity 


8.19  SBDUCT.IN 


. true . 

:  EF.LERR6  error  flag 

. true . 

:  EF.LERR12  error  flag 

3000. 

:  Frequency  in  MHz 

25. 

:  Antenna  height  in  m 
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2 


0 

tenna) 


5000. 


Antenna  type  ( l=OMNI , 2=GAUSS , 3=SINC (X) , 4=COSEC2 , 5=HTFIND, 6=USRHTFIND) 
Polarization  (0=HOR,  1=VER) 

Beamwidth  in  deg  (this  value  is  ignored  for  OMNI  antenna) 

Antenna  elevation  angle  in  deg  (this  value  is  ignored  for  OMNI  antenna) 
Number  of  cut-back  angles  and  factors  (for  specific  height-f inder  an- 

Minimum  output  height  in  m 
:  Maximum  output  height  in  m 


200000.  :  Maximum  output  range  in  m 

20  :  Number  of  output  height  points 

1  :  Number  of  output  range  points 

0  :  Troposcatter  flag:  0=no  troposcatter,  l=troposcatter 

1  :  Number  of  refractivity  profiles 

4  :  Number  of  levels  in  refractivity  profiles 

0  :  Extrapolation  flag 

0 .  :  Surface  absolute  humidity  in  g/m3 

0 .  :  Surface  air  temperature  in  degrees 

0.  :  Gaseous  absorption  attenuation  rate  in  dB/km 

0.  :  Range  of  first  refractivity  profiles  in  m 

°-  339.0  :  Height  &  M-unit  value  of  ref.  profile  1,  level  1 

250.  368.5  :  Height  &  M-unit  value  of  ref.  profile  1,  level  2 

300.  319.0  :  Height  &  M-unit  value  of  ref.  profile  1,  level  3 

1000.  401.6  :  Height  &  M-unit  value  of  ref.  profile  1,  level  4 

0  :  Number  of  terrain  range/height  points 

1  :  Number  of  ground  composition  types 

0.,  0,  0.,  0.  :  Range,  ground  type  (integer),  permittivity,  conductivity 


8.20  SINEX.IN 


. true . 


LERR6  error  flag 


.true.  :  LERR12  error  flag 
1000.  :  Frequency  in  MHz 

25.  :  Antenna  height  in  m 

3  :  Antenna  type  ( l=OMNI, 2=GAUSS , 3=SINC (X) , 4=COSEC2 , 5=HTFIND, 6=USRHTFIND) 

0  :  Polarization  (0=HOR,  1=VER) 

1.  :  Beamwidth  in  deg  (this  value  is  ignored  for  OMNI  antenna) 

0.  :  Antenna  elevation  angle  in  deg  (this  value  is  ignored  for  OMNI  antenna) 

0  :  Number  of  cut-back  angles  &  factors  (for  specific  height-finder  antenna) 
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0 .  :  Minimum  output  height  in  m 

2000.  :  Maximum  output  height  in  m 

50000.  :  Maximum  output  range  in  m 

20  :  Number  of  output  height  points 

1  :  Number  of  output  range  points 

0  :  Troposcatter  flag:  0=no  troposcatter ,  l=troposcatter 

1  :  Number  of  refractivity  profiles 

2  :  Number  of  levels  in  refractivity  profiles 

0  :  Extrapolation  flag 

0.  :  Surface  absolute  humidity  in  g/m3 

0 .  :  Surface  air  temperature  in  degrees 

0.  :  Gaseous  absorption  attenuation  rate  in  dB/km 

0.  :  Range  of  first  refractivity  profiles  in  m 

0.  350.  :  Height  &  M-unit  value  of  ref.  profile  1,  level  1 

1000.  468.  :  Height  &  M-unit  value  of  ref.  profile  1,  level  2 

0  :  Number  of  terrain  range /height  points 

1  :  Number  of  ground  composition  types 

0.,  0,  0.,  0.  :  Range,  ground  type  (integer),  permittivity,  conductivity 

8.21  TROPOS.IN 

.true.  :  LERR6  error  flag 
.true.  :  LERR12  error  flag 
100.  :  Frequency  in  MHz 

25.  :  Antenna  height  in  m 

1  :  Antenna  type  ( l=OMNI , 2=GAUSS, 3=SINC (X) , 4=COSEC2 , 5=HTFIND, 6=USRHTFIND) 

0  :  Polarization  (0=HOR,  1=VER) 

0.  :  Beamwidth  in  deg  (this  value  is  ignored  for  OMNI  antenna) 

0.  :  Antenna  elevation  angle  in  deg  (this  value  is  ignored  for  OMNI  antenna) 

0  :  Number  of  cut-back  angles  Sc  factors  (for  specific  height-finder  antenna) 

0 .  :  Minimum  output  height  in  m 

2000.  :  Maximum  output  height  in  m 

200000.  :  Maximum  output  range  in  m 

20 
1 


1 


Number  of  output  height  points 
Number  of  output  range  points 

Troposcatter  flag:  0=no  troposcatter,  l=troposcatter 


1 


:  Number  of  refractivity  profiles 
2  :  Number  of  levels  in  refractivity  profiles 

0  :  Extrapolation  flag 

0.  :  Surface  absolute  humidity  in  g/m3 

0 .  :  Surface  air  temperature  in  degrees 

0 .  :  Gaseous  absorption  attenuation  rate  in  dB/km 

0.  :  Range  of  first  refractivity  profiles  in  m 

0.  350.  :  Height  &  M-unit  value  of  ref.  profile  1,  level  1 

1000.  468.  :  Height  &  M-unit  value  of  ref.  profile  1,  level  2 

0  :  Number  of  terrain  range/height  points 

1  :  Number  of  ground  composition  types 

0.,  0 ,  0.,  0.  :  Range,  ground  type  (integer),  permittivity,  conductivity 


8.22  TROPOT.IN 


. true . 

. true . 
100. 

25. 

1  : 

0  : 

0.  : 

0.  : 

0  : 

0.  : 

2000. 
200000. 
20  : 

1  : 

1  : 

1  : 

2  : 

0  : 

0.  : 

0.  : 

0.  : 


:  LERR6  error  flag 
:  LERR12  error  flag 
:  Frequency  in  MHz 
:  Antenna  height  in  m 

Antenna  type  ( l=OMNI , 2=GAUSS , 3=SINC (X) , 4=COSEC2 , 5=HTFIND, 6=USRHTFIND) 
Polarization  (0=HOR,  1=VER) 

Beamwidth  in  deg  (this  value  is  ignored  for  OMNI  antenna) 

Antenna  elevation  angle  in  deg  (this  value  is  ignored  for  OMNI  antenna) 
Number  of  cut-back  angles  &  factors  (for  specific  height-finder  antenna) 
Minimum  output  height  in  m 
:  Maximum  output  height  in  m 
:  Maximum  output  range  in  m 
Number  of  output  height  points 
Number  of  output  range  points 

Troposcatter  flag:  0=no  troposcatter ,  l=troposcatter 

Number  of  refractivity  profiles 

Number  of  levels  in  refractivity  profiles 

Extrapolation  flag 

Surface  absolute  humidity  in  g/m3 

Surface  air  temperature  in  degrees 

Gaseous  absorption  attenuation  rate  in  dB/km 
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0. 


:  Range  of  first  refractivity  profiles  in  m 
0.  350.  :  Height  &  M-unit  value  of  ref.  profile  1,  level  1 

1000.  468.  :  Height  &  M-unit  value  of  ref.  profile  1,  level  2 

169  :  Number  of  terrain  range/height  points 

6  :  Number  of  ground  composition  types 

0.,  2,  0.,  0.  :  Range,  ground  type  (integer),  permittivity,  conductivity 

28500.,  0,  0.,  0. 

64800.,  3,  0.,  0. 

68700.,  0,  0.,  0. 

74100.,  4,  0.,  0. 

100200.,  0,  0.,  0. 

0000.  8  :  Range  &  height  of  terrain  point  1  in  meters 

0300.  8 

0600.  9 

0900.  9 

1200.  10 

1500.  11 

1800.  12 
2100.  13 

2400.  14 

2700.  15  :  Range  &  height  of  terrain  point  10  in  meters 

3000.  17 

3300.  19 

3600.  21 

3900.  23 

4200.  25 

4500.  27 

4800.  28 

5100.  30 

5400.  31 

5700.  31  :  Range  &  height  of  terrain  point  20  in  meters 

'6000.  29 

6300.  23 

6600.  14 

6900.  9 

7200.  7 

7500.  7 
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7800. 


9 


8100.  11 
8400.  14 

8700.  13  :  Range  &  height  of  terrain  point  30  in  meters 

9300.  13 

9600.  12 

9900.  11 

10200.  8 
10800.  8 
11100.  7 

12600.  7 

12900.  6 

14400.  6 

14700.  7  :  Range  &  height  of  terrain  point  40  in  meters 

15000.  .  8 

15300.  8 

15600.  9 

15900.  10 

16200.  11 

16500.  11 

16800.  12 

17400.  12 

17700.  13 

18000.  13  :  Range  &  height  of  terrain  point  50  in  meters 

18300.  14 

18600.  15 

18900.  16 

19200.  18 

19500.  20 

19800.  21 

20100.  22 
20400.  23 

20700.  24 

21000.  24  :  Range  &  height  of  terrain  point  60  in  meters 

21300.  25 

21600.  26 
21900.  27 
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22200. 


27 


22500. 

28 

22800. 

29 

23400. 

29 

23700. 

30 

24600. 

30 

24900. 

32 

25200. 

34 

25500. 

38 

26100. 

38 

26400. 

36 

26700. 

34 

27000. 

32 

27300. 

27 

27600. 

15 

27900. 

6 

28200. 

1 

28500. 

0 

64500. 

0 

64800. 

8 

65100. 

30 

65400. 

39 

65700. 

61 

66600. 

61 

66900. 

24 

67200. 

14 

67500. 

26 

67800. 

16 

68100. 

1 

68400. 

1 

68700. 

0 

73800. 

0 

74100. 

1 

74400. 

1 

74700. 

10 

75000. 

8 

75300. 

39 

:  Range  &  height  of  terrain  point  70  in  meters 


:  Range  &  height  of  terrain  point  80  in  meters 


:  Range  &  height  of  terrain  point  90  in  meters 


:  Range  &  height  of  terrain  point  100  in  meters 
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75600.  45 

75900.  53 

76200.  61 

76500.  61 

76800.  82 

77100.  61 

77400.  78 

77700.  61 

78000.  129 

78300.  30  :  Range  &  height  of  terrain  point  110  in  meters 

78600.  46 

78900.  159 

79200.  184 

79500.  226 

79800.  152 

80100.  201 
80400.  244 

80700.  152 

81000.  143 

81300.  91  :  Range  &  height  of  terrain  point  120  in  meters 

81600.  107 

81900.  152 

82200.  152 

82500.  170 

82800.  152 

83100.  66 

83400.  70 

83700.  121 

84000.  152 

84300.  170  :  Range  &  height  of  terrain  point  130  in  meters 

84600.  141 

84900.  139 

85200.  147 

85500.  177 

85800.  152 

86100.  61 
86700.  61 
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87000. 


70 


87300. 

44 

87600. 

11 

87900. 

1 

89400. 

1 

89700. 

61 

90000. 

84 

90300. 

152 

90600. 

152 

90900. 

101 

91200. 

40 

91500. 

15 

91800. 

20 

92100. 

2 

92400. 

10 

92700. 

4 

93000. 

1 

93300. 

1 

93600. 

0 

93900. 

1 

96300. 

1 

96600. 

0 

96900. 

1 

97500. 

1 

97800. 

2 

98100. 

3 

99300. 

3 

99600. 

2 

99900. 

2 

100200. 

1 

100200. 

0 

200000. 

0 

:  Range  &  height  of  terrain  point  140  in  meters 


:  Range  &  height  of  terrain  point  150  in  meters 


:  Range  &  height  of  terrain  point  160  in  meters 


:  Range  &  height  of  terrain  point  167  in  meters 
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8.23  USERHF.IN 


. true . 

:  LERR6 

error 

flag 

. true . 

:  LERR12 

error 

flag 

1000. 

:  Frequency  in 

MHz 

25. 

:  Antenna 

height  in  m 

6  :  Antenna  type  ( 1=0MNI , 2=GAUSS , 3=SINC (X) , 4=COSEC2 , 5=HTFIND, 6=USRHTFIND) 

0  :  Polarization  (0=HOR,  1=VER) 

1.  :  Beamwidth  in  deg  (this  value  is  ignored  for  OMNI  antenna) 

0.  :  Antenna  elevation  angle  in  deg  (this  value  is  ignored  for  OMNI  antenna) 

10  :  Number  of  cut-back  angles  &  factors  (for  specific  height-finder  antenna) 

1.0,  1.5,  2.0,  2.5,  3.0,  3.5,  4.0,  4.5,  5.0,  5.5  :  Cut-back  angles  in  degrees 

0.9,  0.8,  0.7,  0.6,  0.5,  0.4,  0.3,  0.2,  0.1,  0.0  :  Cut-back  power  factors 

0 .  :  Minimum  output  height  in  m 

2000.  :  Maximum  output  height  in  m 

50000.  :  Maximum  output  range  in  m 

20  :  Number  of  output  height  points 

1  :  Number  of  output  range  points 

0  :  Troposcatter  flag:  0=no  troposcatter ,  l=troposcatter 

1  :  Number  of  refractivity  profiles 

2  :  Number  of  levels  in  refractivity  profiles 

0  :  Extrapolation  flag 

0 .  :  Surface  absolute  humidity  in  g/m3 

0 .  :  Surface  air  temperature  in  degrees 

0 .  :  Gaseous  absorption  attenuation  rate  in  dB/km 

0.  :  Range  of  first  refractivity  profiles  in  m 

0.  350.  :  Height  &  M-unit  value  of  ref.  profile  1,  level  1 

1000.  468.  :  Height  &  M-unit  value  of  ref.  profile  1,  level  2 

0  :  Number  of  terrain  range /height  points 

1  :  Number  of  ground  composition  types 

0.,  0,  0.,  0.  :  Range,  ground  type  (integer),  permittivity,  conductivity 

8.24  VERT.IN 

. true .  :  LERR6  error  flag 

.true.  :  LERR12  error  flag 
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1000 


25. 

1 

1 

0. 

0. 

0 

0. 

2000. 

50000. 

20 

1 

0 

1 

2 

0 

0. 

0. 

0. 

0. 

0. 

1000. 

0 

1 


:  Frequency  in  MHz 
:  Antenna  height  in  m 

:  Antenna  type  ( l=OMNI , 2=GAUSS, 3=SINC (X) , 4=COSEC2 , 5=HTFIND, 6=USRHTFIND) 

:  Polarization  (0=HOR/  1=VER) 

:  Beamwidth  in  deg  (this  value  is  ignored  for  OMNI  antenna) 

:  Antenna  elevation  angle  in  deg  (this  value  is  ignored  for  OMNI  antenna) 

:  Number  of  cut-back  angles  &  factors  (for  specific  height-finder  antenna) 
:  Minimum  output  height  in  m 
:  Maximum  output  height  in  m 
:  Maximum  output  range  in  m 
:  Number  of  output  height  points 
:  Number  of  output  range  points 

:  Troposcatter  flag:  0=no  troposcatter ,  l=troposcatter 
:  Number  of  refractivity  profiles 
:  Number  of  levels  in  refractivity  profiles 
:  Extrapolation  flag 
:  Surface  absolute  humidity  in  g/m3 
:  Surface  air  temperature  in  degrees 
:  Gaseous  absorption  attenuation  rate  in  dB/km 
:  Range  of  first  refractivity  profiles  in  m 
350.  :  Height  &  M-unit  value  of  ref.  profile  1,  level  1 

468.  :  Height  &  M-unit  value  of  ref.  profile  1,  level  2 

:  Number  of  terrain  range/height  points 
:  Number  of  ground  composition  types 
0.,  0.  :  Range,  ground  type  (integer),  permittivity,  conductivity 


8.25  VERTMIX.IN 

.true.  :  LERR6  error  flag 
.true.  :  LERR12  error  flag 
100.  :  Frequency  in  MHz 

10.  :  Antenna  height  in  m 

1  :  Antenna  type  ( l=OMNI ,  2=GAUSS,  3=SINC  (X)  ,  4=COSEC2 , 5=HTFIND,  6=USRHTFIND) 

1  :  Polarization  (0=HOR,  1=VER) 

1.  :  Beamwidth  in  deg  (this  value  is  ignored  for  OMNI  antenna) 

0.  :  Antenna  elevation  angle  in  deg  (this  value  is  ignored  for  OMNI  antenna) 
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0  :  Number  of  cut-back  angles  &  factors  (for  specific  height-finder  antenna) 

0 .  :  Minimum  output  height  in  m 

1000.  :  Maximum  output  height  in  m 

50000.  :  Maximum  output  range  in  m 

20  :  Number  of  output  height  points 

1  :  Number  of  output  range  points 

0  :  Troposcatter  flag:  0=no  troposcatter ,  l=troposcatter 

1  :  Number  of  refractivity  profiles 

2  :  Number  of  levels  in  refractivity  profiles 

0  :  Extrapolation  flag 

0.  :  Surface  absolute  humidity  in  g/m3 

0.  :  Surface  air  temperature  in  degrees. 

0 .  :  Gaseous  absorption  attenuation  rate  in  dB/km 

0.  :  Range  of  first  refractivity  profiles  in  m 

0.  350.  :  Height  &  M-unit  value  of  ref.  profile  1,  level  1 

1000.  468.  :  Height  &  M-unit  value  of  ref.  profile  1,  level  2 

2  :  Number  of  terrain  range/height  points 

2  :  Number  of  ground  composition  types 

0.,  4,  0 .  ,  0 .  :  Range,  ground  type  (integer),  permittivity,  conductivity 

25000.,  0,  0.,  0.  :  Range,  ground  type  (integer),  permittivity,  conductivity 

0 .  0 .  :  Range  &  height  of  terrain  point  1 

50000.  0.  :  Range  &  height  of  terrain  point  2 

8.26  VERTSEA.IN 


. true . 

:  LERR6 

error  flag 

. true . 

:  LERR12 

error  flag 

100. 

:  Frequency  in  MHz 

25. 

:  Antenna 

height  in  m 

1  :  Antenna  type  ( l=OMNI , 2=GAUSS, 3=SINC (X) , 4=COSEC2 , 5=HTFIND, 6=USRHTFIND) 

1  :  Polarization  (0=HOR,  1=VER) 

1.  :  Beamwidth  in  deg  (this  value  is  ignored  for  OMNI  antenna) 

0.  :  Antenna  elevation  angle  in  deg  (this  value  is  ignored  for  OMNI  antenna) 

0  :  Number  of  cut-back  angles  &  factors  (for  specific  height-f inder  antenna) 

0 .  :  Minimum  output  height  in  m 

:  Maximum  output  height  in  m 


1000. 


300000.  :  Maximum  output  range  in  m 

20  :  Number  of  output  height  points 

1  :  Number  of  output  range  points 

0  :  Troposcatter  flag:  0=no  troposcatter ,  l=troposcatter 

1  ;  Number  of  refractivity  profiles 

4  :  Number  of  levels  in  refractivity  profiles 

0  :  Extrapolation  flag 

0.  :  Surface  absolute  humidity  in  g/m3 

0 .  :  Surface  air  temperature  in  degrees 

0.  :  Gaseous  absorption  attenuation  rate  in  dB/km 

0.  :  Range  of  first  refractivity  profiles  in  m 

0.  339.0  :  Height  &  M-unit  value  of  ref.  profile  1,  level  1 

250.  368.5  :  Height  &  M-unit  value  of  ref.  profile  1,  level  2 

300.  319.0  :  Height  &  M-unit  value  of  ref.  profile  1,  level  3 

1000.  401.6  :  Height  &  M-unit  value  of  ref.  profile  1,  level  4 

0  :  Number  of  terrain  range /height  points 

1  :  Number  of  ground  composition  types 

0.,  0,  0.,  0.  :  Range,  ground  type  (integer),  permittivity,  conductivity 

8.27  VERTUSRD.IN 

.true.  :  LERR6  error  flag 
.true.  :  LERR12  error  flag 
100.  :  Frequency  in  MHz 

10.  :  Antenna  height  in  m 

1  :  Antenna  type  { l=OMNI , 2=GAUSS , 3=SINC (X) , 4=COSEC2 , 5— HTFIND, 6— USRHTFIND) 

1  :  Polarization  (0=HOR,  1=VER) 

1.  :  Beamwidth  in  deg  (this  value  is  ignored  for  OMNI  antenna) 

0.  :  Antenna  elevation  angle  in  deg  (this  value  is  ignored  for  OMNI  antenna) 

0  :  Number  of  cut-back  angles  &  factors  (for  specific  height-finder  antenna) 

0 .  :  Minimum  output  height  in  m 

1000.  :  Maximum  output  height  in  m 

50000.  :  Maximum  output  range  in  m 

20  :  Number  of  output  height  points 

1  :  Number  of  output  range  points 

0  :  Troposcatter  flag:  0=no  troposcatter,  l=troposcatter 


1 


:  Number  of  refractivity  profiles 
2  :  Number  of  levels  in  refractivity  profiles 

0  :  Extrapolation  flag 

0.  :  Surface  absolute  humidity  in  g/m3 

0 .  :  Surface  air  temperature  in  degrees 

0.  :  Gaseous  absorption  attenuation  rate  in  dB/km 

0.  :  Range  of  first  refractivity  profiles  in  m 

0.  350.  :  Height  Sc  M-unit  value  of  ref.  profile  1,  level  1 

1000.  468.  :  Height  Sc  M-unit  value  of  ref.  profile  1,  level  2 

2  :  Number  of  terrain  range/height  points 

1  :  Number  of  ground  composition  types 

0.,  7,  3.,  6.e-4  :  Range;  ground  type  (integer),  permittivity,  conductivity 

0 .  0 .  :  Range  &  height  of  terrain  point  1 

50000.  0.  :  Range  Sc  height  of  terrain  point  2 

8.28  WEDGE.IN 


.  true . 


. true . 
1000. 
25. 

1  : 

0  : 

1.  : 

0.  : 

0  : 

0.  : 

1000. 
100000. 
20  : 

1  : 

0  : 

1  : 

2  : 

0  : 

0.  : 

0.  : 


:  LERR6  error  flag 
:  LERR12  error  flag 
:  Frequency  in  MHz 
:  Antenna  height  in  m 

Antenna  type  (l=OMNI , 2=GAUSS, 3=SINC (X) , 4=COSEC2 , 5=HTFIND, 6=USRHTFIND) 
Polarization  (0=HOR,  1=VER) 

Beam-width  in  deg  (this  value  is  ignored  for  OMNI  antenna) 

Antenna  elevation  angle  in  deg  (this  value  is  ignored  for  OMNI  antenna) 
Number  of  cut-back  angles  Sc  factors  (for  specific  height-finder  antenna) 
Minimum  output  height  in  m 
:  Maximum  output  height  in  m 
:  Maximum  output  range  in  m 
Number  of  output  height  points 
Number  of  output  range  points 

Troposcatter  flag:  0=no  troposcatter ,  l=troposcatter 

Number  of  refractivity  profiles 

Number  of  levels  in  refractivity  profiles 

Extrapolation  flag 

Surface  absolute  humidity  in  g/m3 

Surface  air  temperature  in  degrees 
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0. 


:  Gaseous  absorption  attenuation  rate  in  dB/km 
0.  :  Range  of  first  refractivity  profiles  in  m 

0.  350.  :  Height  &  M-unit  value  of  ref.  profile  1,  level  1 

1000.  468.  :  Height  &  M-unit  value  of  ref.  profile  1,  level  2 

5  :  Number  of  terrain  range/height  points 

1  :  Number  of  ground  composition  types 

0.,  0,  0.,  0.  :  Range,  ground  type  (integer),  permittivity,  conductivity 

0.  0.  :  Range  &  height  of  terrain  point  1 

45000.  0.  :  Range  &  height  of  terrain  point  2 

50000.  200.  :  Range  &  height  of  terrain  point  3 

55000.  0.  :  Range  5c  height  of  terrain  point  4 

100000.  0.  :  Range  &  height  of  terrain  point  5 
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